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Entrada 
2 de datos: Input 


A instrucción INPUT 
nos permite asignar 
un contenido a una 
variable desde el te- 
clado. Un primer for- 
mato general sería el 
siguiente: 


INPUT < lista de variables > 


donde la lista de variables se compone 
por tantas variables como datos desee- 
mos introducir posteriormente desde el 
teclado al ejecutar el programa. Gene- 
ralmente todas estas variables se sepa- 
ran entre sí con comas. Lógicamente, si 
los datos que vamos a introducir son de 
tipo numérico tendremos que emplear 
variables numéricas, mientras que si son 
de tipo altanumérico (cadenas), em- 
plearemos variables alfanuméricas. En 
cualquier caso, siempre podemos utilizar 
ambos tipos de variables en un mismo IN- 
PUT si estamos manejando datos de los 
dos tipos. 

Veamos un primer ejemplo. El progra- 
ma 1 es una modificación del programa 
3 de modo que resulta mucho más gene- 
ral, ya que permite calcular el área y el 
perímetro de una circunferencia de cual- 
quier radio. 


CLS 
20 INPUT R 

30 LET AREA=3.1416x*R"2 
49 LET PERIM=2X*3.1416*R 
50 PRINT "RADIO="¿R 

60 PRINT "AREA="; AREA 


PRINT "PERIMETRO=";PERIM 


Al ejecutar el programa (RUN) lo prime- 
ro que hace el ordenador es borrar la 
pantalla gracias a la instrucción CLS de 
la línea 10 (si nuestro ordenador es un 
COMMODORE, la instrucción para borrar 
la pantalla es 10 PRINT CHR$(147). A con- 
tinuación aparece en pantalla una in- 
terrogación, que indica que el ordena- 
dor está esperando un dato. En este mo- 
mento podemos introducir el dato que 
deseemos, que en este caso tendrá que 
ser de tipo numérico, ya que le vamos a 
suministrar el radio de una circunferencia 
(y, por tanto, hemos empleado una va- 
riable numérica). Después de teclear el 
dato debemos pulsar la tecla INTRO (o su 
equivalente) para que el ordenador al- 
macene dicho dato en memoria y conti- 
núe la ejecución del programa, que fina- 
lizará con la impresión en pantalla de los 
resultados. 

Como podemos ver, la instrucción IN- 
PUT presenta una gran ventaja, ya que 
cada vez que ejecutemos el programa 
podremos asignar un valor distinto al ra- 
dio. 

Sin embargo, todavía encontramos un 
inconveniente. ¿Qué sucedería si hicié- 
ramos un programa con varios INPUT, o 
con un solo INPUT pero con varias varia- 
bles? Probablemente no sabríamos qué 
dato nos está pidiendo en cada momen- 
to o en qué orden debemos introducirlos. 

Para solucionar este problema pode- 
mos conseguir que el ordenador diga lo 
que pide poniendo mensajes en el INPUT. 
De este modo tenemos un nuevo forma- 
to: 


INPUT “mensaje”; <lista de variables > 


Probemos a sustituir la línea 20 del pro- 
grama 1 por la línea siguiente: 


20 INPUT “DIME EL RADIO“;R 


Al ejecutar ahora el programa apare- 
ce en pantalla el mensaje encerrado en- 
tre comillas, entonces podemos teclear 
el valor que deseamos asignar a la varia- 
ble R (y pulsar INTRO). El resto del progra- 
ma evoluciona igual que antes. 

Veamos ahora un ejemplo para intro- 
ducir desde el teclado cadenas de ca- 
racteres. El programa 2 nos permite intro- 
ducir tres datos altanuméricos y uno nu- 
mérico. 


CELS 
20 INPUT "MARCA DEL VEHICULO "¿U$ 

30 INPUT "MATRICULA ";M$ 

40 INPUT “COLOR ";C$ 

50 INPUT "ANTIGUEDAD "¡A 

£0 CLS 

70 PRINT TAB(12)>;"DATOS DEL VEHICULO" 
30 PRINT á 


110 PRINT "COLOR:",C$ 
120 PRINT "ANTIGUEDAD: ",A 


Recordemos que tras suministrar un 
dato debemos pulsar INTRO para que el 
ordenador pase a solicitarnos el dato si- 
guiente. Después de introducidos los da- 
tos se borra la pantalla (línea 60) y a con- 
tinuación se imprimen de forma ordena- 
da a modo de tabla (líneas 70 a 120). El 
PRINT de la línea 80 deja una línea vacía. 

En la figura 1 podemos ver el resultado 
final de una posible ejecución de este 
programa. 


DATOS DEL VEHICULO 


MARCA: 
MATRICULA: 


RENAULT 11 
M-1490-EK 


COLOR: ROJO 
ANTIGUEDAD: Ea] 
o. 


A 
[A Esta es una posible ejecución del progra- 
ma 2. 


Por otra parte, y como ya hemos dicho, 
podemos poner varias variables en un 
mismo INPUT, lo que nos permite abreviar 
los programas. Para comprobar esto po- 
demos sustituir las líneas 20, 30, 40 y 50 
del programa 2 por una sola línea: 


20 INPUT “MARCA, MATRICULA, COLOR Y 
ANOS DEL VEHICULO"; V$,M$,CS$,A 


Sin embargo, el modo de introducir los 
datos cuando se utiliza este formato pue- 
de variar un poco de unos ordenadores 
a otros. Así, en SPECTRUM y COMMODORE 
debemos pulsar INTRO después de intro- 
ducir cada dato, mientras que en IBM, 
AMSTRAD o MSX se teclean todos los da- 
tos separados por comas y se pulsa IN- 
TRO una sola vez al final. 

Como resumen, debemos respetar 
siempre las siguientes reglas sobre INPUT: 


— Un único mensaje. 

— Separado por punto y coma un 
nombre de variable. 

— Y separados por comas el resto de 
los nombres de las variables. 


El único ordenador que permite saltar- 
se estas normas es el SPECTRUM, que ad- 
mite cualquier combinación de separa- 
dores (coma y punto y coma), así como 
el número de mensajes que se deseen. 

En ocasiones puede suceder que de- 
seemos interrumpir la ejecución de un 
programa que está detenido en un INPUT 
esperando un dato. El modo de hacerlo 
varía de unas máquinas a otras, aunque 
siempre hay una tecla o combinación de 
ellas que permite hacerlo. En la figura 2 
podemos ver una tabla que nos muestra 
el modo de detener la ejecución del pro- 
grama en los principales ordenadores. 


COMMODORE |RUN/STOP + RESTORE 


A Métodos para detener la ejecución en 
un INPUT. 


Finalmente, en algunos ordenadores 
como IBM, AMSTRAD o MSX, podemos en- 
contrarnos que INPUT no admite separa- 
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dores incluidos dentro de una cadena de 
caracteres. Este problema se puede re- 
solver con un nuevo formato. 


LINE INPUT <Lista de variables alftanuméri- 
cas> 


Su efecto es incluirtodos los caracteres 
que se tecleen, incluidos los separado- 
res, como valor de una sola variable has- 
ta que pulsemos INTRO. 

En los ordenadores que no disponen de 
LINE INPUT se puede solucionar este pro- 
blema tecleando la cadena que conten- 
ga separadores entre comillas. 


Ñ Comentarios en líneas de 
programa: REM 


En muchas ocasiones manejaremos 
programas elaborados por otras perso- 
nas. Si antes de utilizarlos no nos han ex- 
plicado su funcionamiento, tendremos 
que estudiar detenidamente su listado, 
lo cual puede resultar laborioso si es muy 
largo. También nuestros propios progra- 
mas pueden ser difíciles de reconocer si 
ha pasado mucho tiempo. Por estas razo- 
nes siempre es conveniente introducir 
entre las líneas del programa algún co- 
mentario que explique su funcionamien- 
to. 

Para cubrir esta finalidad contamos 
con la instrucción REM, abreviatura de la 
palabra inglesa REMARK (nota, comenta- 
rio, observación). Detrás de una instruc- 
ción REM podemos escribir cualquier co- 
mentario que deseemos. Cuando el or- 
denador encuentra una instrucción REM 
al ejecutar un programa, ignora dicha lí- 
nea, es decir, no la ejecuta. Por tanto, la 
instrucción REM tiene utilidad para el 
usuario, pero no para la máquina. De to- 
dos modos, tampoco conviene abusar 
de las líneas REM, ya que, aunque no son 
ejecutables, ocupan memoria. 

Veamos un ejemplo. Vamos a desarro- 
llar un programa que nos permita calcu- 
lar el volumen de un cilindro en función 
del radio de la base y de la altura. Recor- 


demos que la fórmula matemática para 
calcularlo es: V = 3.1416"R”H. 


REM VOLUMEN DEL CILINDRO 
26 CLS 

30 INFUT "RADIO "¿R 

406 INPUT "ALTURA "¿H 

50 LET V=3.1416xR" 2H 

6M PRINT 

70 PRINT "VOLUMEN=";3V 


En el programa la línea 10 es un 
mero comentario que sirve para titular el 
programa, por tanto, la ejecución co- 
mienza realmente en la línea 20, borrán- 
dose la pantalla. A continuación el orde- 
nador nos pide un valor para el radio. 
Una vez que se lo hemos dado nos pide 
otro valor para la altura. Tras darle este 
segundo dato calcula el volumen (línea 
50) e imprime el resultado en pantalla (lí- 
nea 70). La línea 60 deja una línea de la 
pantalla en blanco. 

Por último, si quisiéramos poner un títu- 
lo a cada uno de los programas que he- 
mos hecho hasta el momento no tendría- 
mos más que teclear una línea REM con 
el título correspondiente y con un núme- 
ro de línea entre 1 y 9. Así, por ejemplo, 
para titular el programa 1, podríamos te- 
clear: 


5 REM AREA Y PERIMETRO DE UNA 
CIRCUNFERENCIA 


No importa que ésta sea la última línea 
que tecleamos, ya que la máquina se en- 
carga de ordenar todas las líneas que 
componen un programa por números de 
lineas crecientes. De modo que, como 
las líneas de programa se numeran nor- 
malmente de 10 en 10, siempre podemos 
intercalar alguna línea que se nos haya 
olvidado, utilizando un número de línea 
intermedio. El ordenador se encargará 
de situarla en la parte del programa 
correspondiente. 


A hemos visto que 
mediante el mandato 
«A» del DEBUG se pue- 
de realizar el ensam- 
blaje de instruccio- 
nes conforme se van 
escribiendo. Este pro- 
cedimiento que nos 
ha permitido empezar a escribir y ejecu- 
tar programas desde el primer momento 
puede resultar instructivo, pero no se 
puede considerar un procedimiento ge- 
neral aplicable a cualquier caso. 

Hay dos problemas importantes en el 
uso del mandato «A» del DEBUG. En primer 
lugar, no se pueden usar símbolos para 
referirse a la memoria, sino que hay que 
especificar las direcciones en código 
hexadecimal, y, en segundo lugar, no se 
pueden insertar nuevas instrucciones en- 
tre las que se tenían previamente escri- 
tas. Estos dos inconvenientes obligan a 
que las modificaciones tengan que ha- 
cerse volviendo a escribir parcial o total- 
mente el programa. 

El método que ahora proponemos, que 
es el habitual, consiste en ensamblar en 
bloque todo el programa fuente para 
constituir un nuevo fichero que contiene 
lo que se denomina «programa objeto». 
El proceso completo, que se describe a 
continuación, consta de tres pasos: 


1. Escritura o modificación del «pro- 
grama fuente» utilizando cualquier editor 
de textos. 

2. Ensamblaje del «programa fuente» 
y obtención del «programa objeto» me- 
diante el programa MASM. 

3. Obtención del «programa ejecuta- 
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ble» a partir de uno o más «programas ob- 
jetos», siviendose del programa LINK. 


El proceso puede resumirse en el si- 
guiente esquema: 


Teclado 
Programa fuente 
MASM 


Programa objeto 


LINK 


Programa ejecutable 


m Programa fuente 


Se llama «programa fuente» al fichero 
que contiene el texto escrito por el usua- 
rio, y que, dividido en líneas denomina- 
das sentencias, describe en lenguaje 
simbólico las tareas que debe realizar el 
microprocesador. 

Desde el punto de vista formal, el pro- 
grama fuente es un fichero de texto 
como cualquier otro y podemos escribir- 
lo utilizando cualquier editor de textos. 

Se puede usar el EDLIN que viene inclui- 
do en el disquete del DOS. Este progra- 
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ma edita línea a línea y puede servir 
para escribir programas cortos que no 
vayan a ser sometidos a muchos cam- 
bios. 

Para escribir programas largos o que 
vayan a estar sometidos a muchas modi- 
ficaciones el EDLIN puede resultar dema- 
siado tedioso. En su lugar, recomenda- 
mos el uso del «Personal Editor» o cual- 
quier otro editor de pantalla completa. 

Debido a la gran variedad de editores 
existentes, el manejo de los mismos es un 
tema muy extenso que, por otra parte, se 
sale del ámbito de esta sección y es un 
tema en el que no vamos a entrar. 

Así que, sea cual sea el editor elegido, 
escribamos un fichero de texto de nom- 
bre PROG 1.ASM que contenga el siguien- 
te programa fuente: 


CODIGO SEGMENT 
ASSUME CS: CODI 
PROGi PROC FAR 

push ds 

mov ax,0 

push ax 

mov  ax,0BOO0OH 
ds, ax 


Esta es una versión del programa SIM- 
BOLO (propuesto anteriormente para ser 
escrito con el DEBUG), adaptada para ser 
ensamblada con el programa MASM. Los 
cambios que ha sido necesario introdu- 
cir se han escrito con mayúsculas y se co- 
mentarán en otra ocasión. 


O Programa objeto : 


Como ya hemos dicho, el programa 
fuente no es directamente entendible 
por el microprocesador. Para que pueda 
ser entendido hay que someterlo a un 
proceso de traducción que se llama «en- 
samblaje». 


Existen dos programas que pueden ha- 
cer esto. Uno de ellos es el programa 
MASM («Macro Assembler»), y el otro es 
una versión reducida del mismo llama- 
da ASM («Assembler»). En la versión redu- 
cida se han eliminado algunas instruc- 
ciones que no son imprescindibles y pue- 
de funcionar en máquinas de 64 K en lu- 
gar de las 96 K que necesita el primero. 

Mientras no se diga expresamente lo 
contrario, los programas que se pongan 
como ejemplo en esta sección podrán 
ser procesados indistintamente por cual- 
quiera de los dos ensambladores cita- 
dos. 

En el proceso de ensamblaje intervie- 
nen los cuatro ficheros siguientes: 

— El fichero que contiene el programa 
fuente. Cuyo nombre debe ser obligato- 
riamente especificado. Sin embargo, su 
extensión es opcional y se le asigna .ASM 
en caso de que sea omitida. 

— Un fichero generado durante el en- 
samblaje, que contiene el programa ob- 
jeto. Si no se especifica, su nombre se 
toma igual al del programa fuente y su 
extensión se toma .OBJ en caso de ser 
omitida. 

— Un fichero generado durante el en- 
samblaje, que contiene un listado de los 
programas fuente y objeto así como los 
posibles errores producidos. En caso de 
omitir su nombre y su extensión, no se ge- 
nera este fichero. Si sólo se omite su ex- 
tensión, se le asigna .LST. 

— Un fichero generado durante el en- 
samblaje que contiene información so- 
bre las referencias cruzadas. Este fichero 
se utiliza en casos muy excepcionales. 
Recomendamos omitir sistemáticamente 
su nombre para que no sea generado. 


Hay dos formas de llamar al programa 
MASM. 


— La primera es la forma conversacio- 
nal, en ella MASM pregunta por los cua- 
tro ficheros involucrados, indicando en- 
tre corchetes el nombre que tomará por 
omisión. Para los dos últimos ficheros el 
nombre de omisión es NUL, que significa 
fichero nulo, es decir, no generar ese fi- 
chero. E 

A continuación se expone el conteni- 
do de la pantalla cuando se ensambla el 
programa PROG1.ASM anteriormente lis- 
tado para obtener los ficheros 
PROG 1.0BJ y PROG1.LST usando la moda- 
lidad conversacional. 


A> MASM 


Cross reference 


Warning Severe 
Errors Errors 
Lo] 


A> 


— La segunda forma de llamar al en- 
samblador consiste en especificar los fi- 
cheros deseados en la línea de llamada. 
Para ello hay que escribir MASM, seguido 
de un blanco, seguido de los nombres de 
los ficheros deseados separados por co- 
mas y terminando por punto y coma. Los 
nombres de los tres últimos ficheros pue- 
den ser omitidos, en cuyo caso podrán 
aparecer dos o más comas seguidas. 

Para especificar de esta forma los mis- 
mos ficheros que en el ejemplo anterior 
habría que escribir: 


A> MASM PROG 1,,PROG1,; 


Las comas que preceden inmediata- 
mente al punto y coma pueden omitirse. 

El caso más frecuente y más sencillo de 
especificar es aquel en el que se quiere 
ensamblar el programa fuente 
PROG1.ASM para generar el programa 
objeto en el fichero PROG 1.0BJ y listar di- 
rectamente en la pantalla los errores en- 
contrados. Esto se consigue especifican- 
do: 


A> MASM PROG 1; 


. Programa ejecutable 


El «programa objeto» producido por el 
ensamblador no es todavía directamen- 
te ejecutable, sino que debe ser someti- 
do a un último proceso llamado «monta- 
je». Este proceso lo realiza el programa 
LINK, y consiste en generar un nuevo fi- 


IBM Personal Computer MACRO Assembler Version 1.81 
(C)Copyright IBM Corp 1981, 1984 
(C)Copyright Microsoft Corp 1981, 1984 


Source filename [.ASMJ: PROG1 
Object filename [PROG1.OBJJ: 
Source listing [NUL.LSTI: PROG 
ENUL..CRFI: 


chero que llamaremos «programa ejecu- 
table» a partir del «programa objeto» o a 
partir de varios «programas objetos». 

La necesidad de este paso surge cuan- 
do se realizan programas complicados. 
Normalmente, los programas complica- 
dos se diseñan por partes, que constitu- 
yen diferentes programas fuentes (que 
en muchos casos están escritos por dife- 
rentes personas). 

El problema aparece cuando en un 
programa fuente se escribe una instruc- 
ción en la que se hace referencia a una 
tarea o a un dato contenido en un pro- 
grama diferente. Esto recibe el nombre 
de «referencia externa». Cuando el en- 
samblador llega a una instrucción de 
este tipo se encuentra con el problema 
de que no puede traducirla, ya que no 
conoce la dirección de memoria de di- 
cha «referencia externa». 

¿Qué hacer en este caso? Pues lo úni- 
có posible: dejar la instrucción sin tradu- 
cir y poner una marca al principio del 
programa objeto avisando de esta cir- 
cunstancia. 

Cuando se han ensamblado todos los 
programas fuente y se procede finalmen- 
te a reunirlos en un único programa eje- 
cutable, el LINK adjudica una posición en 
memoria a cada uno de los objetos. Una 
vez hecho esto, el LINK conoce las direc- 
ciones de todas las referencias externas 
y puede ya abordar la tarea de comple- 
tar la traducción de las instrucciones que 
no había podido realizar el ensamblador. 

Evidentemente, para los programas 
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sencillos, constituidos por un solo progra- 
ma fuente, el montaje podría haberse 
evitado, pero no se ha hecho así. Y es 
ésta una pequeña incomodidad que hay 
que sufrir como pago a tener una herra- 
mienta mucho más general. 

En el proceso de montaje con el LINK 
deben especificarse cuatro tipos de fi- 
cheros: 


1. El fichero o los ficheros de los pro- 
gramas objetos, cuyos nombres deben 
formar una lista separados por blancos o 
por signos más (+), y cuyas extensiones 
pueden omitirse en caso de ser .OBJ. 

2. El fichero que contendrá el progra- 
ma ejecutable. Si no se especifica, su 
nombre se toma igual al del primer pro- 
grama objeto y su extensión se toma .EXE 
en caso de ser omitida. 

3. Un fichero generado durante el 
montaje, que contiene un listado con las 
posiciones de memoria que le han 


A> LINK 


Run File [A:PROG1.EXEJ: 
List File [NUL.MAPI: 
Libraries [.LIBJ1: 


A> 


cificar los ficheros deseados en la línea 
de llamada. Para ello hay que escribir 
LINK, seguido de un blanco, seguido de 
los nombres de los ficheros deseados, se- 
parados por comas, y terminando por 
punto y coma. Las nombres de los tres úl- 
timos ficheros pueden ser omitidos, en 
cuyo caso podrán aparecer dos o más 
comas seguidas. 

Para especificar de esta forma el mis- 
mo proceso que en el ejemplo anterior 
habría que escribir: 


A > LINK PROG 1,,,; 
o bien, omitiendo las comas finales: 


IBM Personal Computer Linker 
Version 2.10 (C)Copyright IBM Corp 1981, 1982, 1983 


Object Modules [.0BJJ: PROG1 


Warning: No STACK segment 


There was 1 error detected. 


correspondido a los diferentes progra- 
mas objeto, así como los posibles errores 
producidos. En caso de omitir su nombre 
y su extensión este fichero no es genera- 
do. Si sólo se omite su extensión, se le 
asigna .MAP. 

4. Elfichero oficheros que constituyen 
las bibliotecas, las cuales se utilizan nor- 
malmente en el proceso de objetos pro- 
ducidos por los distintos compiladores. 
= esta sección vamos a prescindir de 
ellas. 


El programa LINK puede utilizarse de 
tres formas: 


— La primera forma consiste en escri- 
bir el nombre LINK y limitarse a responder 
los nombres de los ficheros pedidos. A 
continuación se expone un ejemplo de 
cómo obtener el programa ejecutable 
PROG 1.EXE a partir del programa objeto 
PROG 1.0BJ anteriormente ensamblado. 

— La segunda forma consiste en espe- 


A > LINK PROG 1; 


— La tercera forma, que es mediante 
el fichero de respuestas automáticas, 
puede ignorarse, ya que no se necesita- 
rá en esta sección. 

Con todo esto hemos pretendido dar 
una visión general aunque no exhaustiva 
de las distintas formas en que pueden in- 
vocarse los programas MASM y LINK. Se 
ha dejado aparte el tema de los paráme- 
tros de estos programas, porque su utili- 
zación sólo es necesaria en casos que 
caen fuera del propósito de esta sec- 
ción. 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


Programa: 
8 Gestor 
de ficheros 
L programa que apa- 
rece a continuación CREACION DE UN NUEVO FICHERO 
nos va a permitir la 


realización y defini- O aparecian a conti ciÓn. 
ción de cualquier 
tipo de fichero que 
nosotros deseemos. 
Podremos introducir 
todos los datos que queramos sobre 
cualquier materia, ya que somos noso- 
tros mismos los que definiremos la longi- 
tud de cada registro, de cada campo de 
cada registro, el nombre de cada regis- [A 


Cuantos campos tendra cada ficha?? 


tro... El programa permite definir los ficheros que 


queramos y como queramos. 


El programa también está preparado 
para definir la impresión por impresora. 
Nos permite buscar fichas, borrar fichas, 
modificarlas... 


MENU GENERAL 
FUSQUEDA DE FICHAS 
- INTRODUCIR FICHAS 
GESTIONAR FICHAS 
ORDENAR FICHAS 


-VER FICHAS 
EUSCAR FOR CAMFO Y VALUR 
EUSCAR FICHAS EORRADAS 


-GRAEAC ION 
-LECTURA 
- IMPRESORA 
8 -TERMINAR 
INTRODUZCA OFCION 


1 
z 
3 
4 -EUSCAR FICHAS 
5 
6 
ón 


INTRODUZCA OFCION 4 


l A Menú general del programa «Gestor de ] A E ' 
ficheros». Menú de búsqueda de fichas. 
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Poco mas hay que decir sobre el funcionamiento del programa, ya que éste es au- 
toexplicativo. 


100 REM AMOS OOOO dido lololololololok 

110 REM * GESTOR DE FICHEROS * 

120 REM AdMSSSOSSOO jodida jojolalololojok 

130 REM 

140 REM AMS ISSO ISSO jSldlO lO lSlSlOlOjOjdlolOjoIOJOK 
150 REM * Por Fco. Morales Guerrero * 
160 REM Aaa OOO aida djdla jala dla aldo lolOjOJOK 
170 REM * (c) Ed. Siglo Cultural, 1987 *R 
180 REM AdadadadaaOS Oda idilio aloja lolo lojolOjolok 
190 REM 

200 REM *x** INICIALIZACION xxx 

210 REM 

220 DIM F$(1000),4$(10),N(20),N$(20, 4) 
230 LET TT=0 

240 CLS 

250 LET A$="MENU INICIAL" 

260 LET N=2 

270 LET A$(1)="DEFINIR FICHERO NUEVO” 
280 LET A3(2)="ENTRAR EN EL MENU GENERAL" 
290 LET M$="2" 

300 LET W$="1" 

310 GOSUB 5960 

320 IF A$="1"” THEN GOSUB 7250:GOTO 240 
330 CLS 

340 LET A$="MENU GENERAL” 

350 LET N=8 

360 LET A$(1)="INTRODUCIR FICHAS” 

370 LET A$(2)="GESTIONAR FICHAS” 

380 LET A$(3)="ORDENAR FICHAS” 

390 LET A$(4)="BUSCAR FICHAS" 

400 LET A$(5)="GRABACION" 

410 LET A$(6)="LECTURA" 

420 LET A$(7)=" IMPRESORA" 

430 LET A$(8)="TERMINAR" 

440 LET M$="8" 

450 GOSUB 5960 

460 LET A=VAL(A$) 

470 ON A GOSUB 490,650,1050, 1150, 1450, 1990, 2550, 3200 
480 GOTO 330 

490 REM 

500 REM *x*x* INTRODUCIR FICHAS *x*x* 

510 REM 

520 CLS 

530 PRINT " INTRODUCIR FICHAS” ' 
AO PRINT "esecocsaaciesigosono” 

550 PRINT "Fichas en memoria = ";TT 
560 LET NF=TT+1:LET F$(NF)=CHR$(254) 
570 GOSUB 8010 

580 LET TT=TT+1 

590 LOCATE 20,1 

600 PRINT "INTRODUCIR OTRA FICHA (S/N)” 
610 LET A$=INKEY$: IF A$="" THEN GOTO 610 
620 IF A$="S" OR A$="s" THEN GOTO 490 
630 IF A$="N" OR A$="n" THEN RETURN 
640 GOTO 610 

650 REM ' 

660 REM *** GESTIONAR FICHAS xxx 

670 REM 

680 LET A$="GESTION DE FICHAS" 

690 LET N=4 

700 LET A$(1)="BORRAR FICHA" 

710 LET A$(2)="LIMPIEZA DEL FICHERO" 
720 LET A$(3)="MODIFICAR FICHA" 


730 


LET A$(4)="VER UNA FICHA” 


740 GOSUB 5960 

750 CLS 

760 ON VAL(A$) GOTO 770,850,890,980 
770 PRINT "BORRAR FICHA” 

MOD PRI 

790 PRINT 

800 IF N(1)=0 THEN PRINT "NO HAY FICHAS":GOSUB 5440: RETURN 
810 INPUT "QUE No. DE FICHA ";NF 
820 IF NF<1 OR NF>77 THEN GOTO 810 
830 LET F$(NF)=CHR$(253)+F$(NF) 

840 RETURN 

850 PRINT "LIMPIAR FICHERO" 

380 PRIMO So 

870 GOSUB 5680 

880 RETURN 

890 PRINT "MODIFICAR FICHA" 

300- PRINT/“SE=S<==<ICERSaSE=” 

910 PRINT 

920 INPUT "QUE FICHA MODIFICAS ";NF 
930 IF NF<1 OR NF>TT THEN PRINT "ESA FICHA NO EXISTE":GOSUB 5440: RETURN 
940 GOSUB 8290 

950 CLS 

960 GOSUB 8010 

970 RETURN 

980 PRINT "VER UNA FICHA” 

A A 

1000 PRINT 


1010 INPUT "QUE FICHA QUIERES VER ";NF 

1020 IF NF<1 OR NF>TT THEN PRINT "ESA FICHA NO EXISTE"”:GOSUB 5440: RETURN 
1030 GOSUB 8290 

1040 RETURN 

1050 REM 

1060 REM *x*x* ORDENAR FICHAS *x*x 

1070 REM 

1080 CLS 

1090 PRINT " ORDENAR FICHAS” 

IDO RIN 

1110 PRINT:PRINT:PRINT 

1120 INPUT "ORDENAMOS POR EL CAMPO No. :";NC 
1130 GOSUB 6890 

1140 RETURN 

1150 REM 


1160 


REM *x*x* BUSCAR FICHAS x*x*x* 


1170 REM 

1180 PRINT "BUSQUEDA DE FICHAS" 

1190 -?PRINT “=== =s=ccenisco" 

1200 PRINT:PRINT 

1210 IF N(1)=0 THEN PRINT 'NO HAY FICHAS":GOSUB 5440: RETURN ,o 
1220 LET A$="BUSQUEDA DE FICHAS” 

1230 LET N=3 

1240 LET A$(1)="VER FICHAS” 

1250 LET A$(2)="BUSCAR POR CAMPO Y VALOR” 
1260 LET A$(3)="BUSCAR FICHAS BORRADAS" 
1270 LET W$="1" 

1280 LET M$="3" 

1290 GOSUB 5960 

1300 CLS 

1310 PRINT "BUSQUEDA DE FICHAS" 

1320 :PRINT “oc==sisciaiiiss==" 

1330 PRINT:PRINT:LET SW=VAL(A$)-1 

1340 ON VAL(A$) GOTO 1350, 1390, 1430 

1350 INPUT "INTRODUCE PRIMERA FICHA ";N1 
1360 PRINT 

1370 INPUT "INTRODUCE ULTIMA FICHA  ";N2 
1380 GOTO 1430 

1390 INPUT "QUE VALOR HAY QUE BUSCAR ";A$ 
1400 PRINT 
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1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 
1650 

1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1730 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


INPUT "EN QUE CAMPO ";NC 
GOTO 1430 
GOSUB 6230 
RETURN 
REM 
REM **x* GRABACION x*xkx 
REM 
LET A$="GRABACION DEL FICHERO” 
LET N=2 
LET A$(1)="GRABACION EN DISCO" 
LET A$(2)="GRABACION EN CINTA" 
LET W$="1" 
LET M$>"2" 
GOSUB 5960 
CLS 
PRINT "GRABACION DEL FICHERO” 
PRINTS ocassa=s=" 
PRINT:PRINT 
INPUT "NOMBRE DEL FICHERO ";B$ 
IF LEN(B$)>12 THEN GOTO 1590 
PRINT:PRINT 
PRINT "GRABANDO ";B$ 
IF A$="2" THEN GOTO 1810 
OPEN B$ FOR OUTPUT AS +1 
PRINT +$1,N(1) 
FOR Z=1 TO N(1) 
PRINT $1,N(Z+1) 
NEXT Z:FOR Z=1 TO N(1) 
PRINT $1,M$(2) 
NEXT Z:PRINT $1, TT 
FOR Z=1 TO TT 
PRINT $1,F$(Z) 
NEXT Z 
FOR Z=1 TO 20 


FOR X=1 TO 4 
PRINT $1,N$(Z,X) 
NEXT X 
NEXT Z 
CLOSE +1 
RETURN 
OPEN "CAS: "+B$ FOR OUTPUT AS +1 


PRINT +$1,N(1) 
FOR Z=1 TO N(1) 

PRINT +$1,N(Z+1) 
NEXT Z 
FOR Z=1 TO N(1) 

PRINT $1,M$(7) 
NEXT Z 
FOR Z=1 TO TT 

PRINT $1,F$(Z) 
NEXT Z 
FOR Z=1 TO 20 

FOR X=1 TO 4 

PRINT $1,N$(Z,X) 

NEXT X 
NEXT Z 
CLOSE +1 
RETURN 
REM 
REM *** LECTURA DEL FICHERO x*x*x*x 
REM 
LET A$="LECTURA DE UN FICHERO” 
LET N=2 
LET A$(1)="LECTURA DESDE DISCO” 
LET A$(2)="LECTURA DESDE CASETE” 
LET W$="1" 
LET M$="2" 
GOSUB 5960 


2090 CLS 

2100 PRINT “GRABACION DEL F-ICHERO” 
A o 
2120 PRINT:PRINT 

2130 INPUT "NOMBRE DEL FICHERO ";B$ 
2140 IF LEN(B$)>12 THEN GOTO 2130 
2150 PRINT "LEYENDO ... ";B$ 

2160 IF A$="2" THEN GOTO 2360 

2170 OPEN B$ FOR INPUT AS $1 

2180 INPUT $1,N(1) 

2190 FOR Z=1 TO N(1) 

2200 INPUT $1,N(Z+1) 

2210 NEXT Z 

2220 FOR Z=1 TO N(1) 

2230 INPUT +$1,M$(2) 

2240 NEXT Z 

2250 INPUT +$1,TT 

2260 FOR Z=1 TO TT 

2270 INPUT $1,F$(Z) 

2280 NEXT Z 

2290 FOR Z=1 TO 20 

2300 FOR X=1 TO 4 

2310 INPUT +$1,N$(Z,X) 

2320 NEXT X 

2330 NEXT Z 

2340 CLOSE +1 

2350 RETURN 

2360 OPEN "CAS"+B$ FOR INPUT AS +1 
2370 INPUT +$1,N(1) 

2380 FOR Z=1 TO N(1) 

2390 INPUT $1,N(Z+1) 

2400 NEXT Z 

2410 FOR Z=1 TO N(1) 

2420 INPUT +$1,M$(2) 

2430 NEXT Z 

2440 INPUT $1,TT 

2450 FOR Z=1 TO TT 

2460 INPUT $1,F$(Z) 

2470 NEXT Z 

2480 FOR Z=1 TO 20 

2490 FOR X=1 TO 4 

2500 INPUT +$1,N$(Z,X) 

2510 NEXT X 

2520 NEXT Z 

2530 CLOSE $1 

2540 RETURN 

2550 REM 

2560 REM x*x*x* IMPRESORA *x*x 

2570 REM 

2580 LET A$="MENU DE IMPRESION" 
2590 LET N=2 

2600 LET A$(1)="DEFINIR IMPRESION" 
2610 LET A$(2)="IMPRIMIR" 

2620 LET W$="1" 

2630 LET M$="2" 

2640 GOSUB 5960 

2650 IF A$="1" THEN GOSUB 3390: RETURN 
2660 CLS 

2670 PRINT "IMPRESION DE LAS FICHAS 
ZU PRINT. "Socorro ocios ss 
2690 PRINT:PRINT 

2700 IF N$(1,1)="" THEN PRINT "IMPRESION NO DEFINIDA”:GOSUB 5440: RETURN 
2710 IF N(1)=0 THEN PRINT "NO HAY FICHAS":GOSUB 5440: RETURN 

2720 PRINT "PREPARA LA IMPRESORA Y ..." 

2730 GOSUB 5440 

2740 LOCATE 5,1 

2750 PRINT "IMPRIMIREMOS LAS FICHAS "; 

2760 FOR Z=1 TO 20 
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2770 IF N$(Z,1)<>"" THEN PRINT N$(Z,1);",";:GOTO 2790 
2780  LET Z=21:LET N=Z 

2790 NEXT Z 

2800 PRINT:PRINT 

2810 PRINT "EN EL ORDEN "”; 

2820 FOR Z=1 TO N 

2830 IF N$(Z,2)<>"" THEN PRINT N$(Z,2);",";:GOTO 2850 
2840  LET Z=21 

2850 NEXT Z 

2860 PRINT:PRINT 

2870 PRINT "TABULADAS EN LAS POSICIONES "; 

2880 FOR Z=1 TO N 

2890 IF N$(Z,3)<>"" THEN PRINT N$(Z,3);",";:GOTO 2910 
2900  LET Z=21 

2910 NEXT Z , 

2920 PRINT:PRINT 

2930 PRINT "ENTRE FICHA Y FICHA ”; 

2940 IF N$(1,4)="-1" THEN PRINT "CAMBIARE DE PAGINA":GOTO 2960 
2950 PRINT "IMPRIMIRE ";N$(1,4);" LINEAS EN BLANCO” 

2960 GOSUB 3150 

2970 LET CC=0 

2980 FOR Z=1 TO TT:LET CR=1 

2990 FOR R=1 TO 20:LET CD=0 


3000 IF N$(R,2)="" THEN LET R=20:GOTO 3090 

3010 LET CC=VAL(N$(R,2)) 

3020 FOR V=1 TO LEN(F$(Z)) 

3030 IF MID$(F$(Z),V,1)=CHR$(254) THEN LET CD=CD+1:IF CD=CC THEN LET Z1 
=V+1:LET V=LEN(F$(Z)) 

3040 NEXT V:LPRINT TAB(VAL(N$(CR,3)));:LET CR=CR+1 

3050 FOR V=Z1 TO LEN(F$(Z)) 

3060 IF MID$(F$(Z),V,1)=CHR$(254) THEN LET V=LEN(F$(Z)):GOTO 3080 

3070 LPRINT MID$(F3$(Z),V,1); 

3080  . NEXT Y 


3090 NEXT R 

3100 IF N$(1,4)="-1" THEN LPRINT CHR$(12):GOSUB 3150:GOTO 3120 

3110 FOR R=1 TO VAL(N$(1,4)):LPRINT:NEXT R 

3120 NEXT Z 

1 RN e e e e e et 
3140 RETURN 

3150 FOR S=1 TO 20 

3160 IF N$(S,2)="" THEN GOTO 3180 

3170 LPRINT TAB(VAL(N$(S,3)));MS(VAL(N$(S, 2))); 

SE A A A A Ak 


3210 REM **x* FIN DE LA SESION x*xx 
3220 REM 
3230 CLS 


3260 PRINT:PRINT:PRINT 

3270 PRINT "ESTA SEGURO (S/N)" 

3280 LET A$=INKEY$ 

3290 IF A$="" THEN GOTO 3280 

3300 IF A$="S" OR A$="s" THEN GOTO 3330 
3310 IF A$="N" OR A$="n"” THEN RETURN 
3320 GOTO 3280 

3330 CLS 

3340 PRINT "SESION TERMINADA. ADIOS" 
3350 FOR I=1 TO 10 , 

3360 PRINT 

3370 NEXT I 

3380 END 

3390 REM 

3400 REM AMOO IOIS ISSN ISISIO IO IOlIIOIOJOK: 
3410 REM * DEFINICION DE IMPRESION * 
3420 REM oooO ISSO IS lSlOOOIMIOISISlSISOIOJOIOJOR 


3430 

3440 
3450 
3460 
3470 
3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 

3970 
3980 

3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 


REM 
CLS 


LOCATE 5,1 
PRINT "( CUANTOS CAMPOS QUIERE QUE IMPRIMA 2" 
LOCATE 12,1 
LINE INPUT "==> “;A$ 
IF VAL(A$)=0 THEN RETURN 
LET N=VAL(A$) 
LOCATE 5,1 
PRINT "( QUE CAMPOS DESEA QUE IMPRIMA ? 
LOCATE 9,1 
PRINT "CAMPOS A IMPRIMIR = ” 
FOR Z=1 TO N 
LOCATE 12,1 
PRINT SPACE$(10) 
LOCATE 12,1 
LINE INPUT "==> ";N$(Z,1) 
IF VAL(N$(Z,1))=0 THEN GOTO 3580 
LOCATE 9,22 
FOR X=1 TO Z 
PRINT N$(X,1);","; 
NEXT X 
NEXT Z 
PRINT CHR$(29);" " 
LOCATE 5,1 
PRINT "(EN QUE ORDEN LOS IMPRIMO ? 
PRINT "INTRODUZCA EL NUMERO DEL CAMPO EN EL ” 
PRINT "ORDEN EN QUE QUIERE QUE SE IMPRIMA. 
LOCATE 10,1 
PRINT "ORDEN DE IMPRESION = " 
FOR Z=1 TO N 
LOCATE 12,1 
PRINT SPACE$(10) 
LOCATE 12,1 
LINE INPUT "==> ";N$(Z,2) 
IF VAL(N$(2,2))=0 THEN GOTO 3760 
LOCATE 10,22 
FOR X=1 TO Z 
PRINT N$(X,2);","; 
NEXT X 
NEXT Z 
PRINT CHR$(29);" " 
LOCATE 12,1 ; 
PRINT ” ":REM 10 ESPACIOS EN BLANCO 
LET NN=0 
FOR Z=1 TO N 
FOR X=1 TO N 
IF N$(Z,1)=N$(X,2) THEN LET NN=NN+1:LET X=N+1 
NEXT X 
NEXT Z 
IF NN=N THEN GOTO 4150 
CLS 
PRINT “CAMPOS A IMPRIMIR = ”; 
FOR Z=1 TO N 
PRINT N$(Z,1);","; 
NEXT Z 
PRINT CHR$(29);" " 
PRINT 
PRINT 
PRINT “ORDEN DE IMPRESION = ”; 
FOR Z=1 TO N 
PRINT N$(Z,2);","; 
NEXT Z 
PRINT CHR$(29);" ” 
LOCATE 12,1 
PRINT “NO COINCIDEN LOS CAMPOS A IMPRIMIR” 
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4110 PRINT "CON EL ORDEN DE IMPRESION" 
4120 LET X=1:LET Y=20 

4130 GOSUB 5440 

4140 GOTO 3390 

4150 LOCATE 15,1 

4160 PRINT "( ESTA DE ACUERDO ? (S/N)" 
4170 LET A$=INKEY$ 

4180 IF,A$="S" OR A$="s" THEN GOTO 4220 
4190 IF A$<>"N"” AND A$<>"n" THEN GOTO 4170 
4200 ERASE N$ 

4210 GOTO 3390 

4220 FOR Z=5 TO 20 

4230 LOCATE Z,1 

4240 PRINT SPACE$(40) 

4250 NEXT Z 

4260 LOCATE 5,1 

4270 PRINT "INTRODUZCA AHORA EN QUE COLUMNA" 
4280 PRINT "DE LA IMPRESORA SE HA DE IMPRI-" 
4290 PRINT "MIR CADA CAMPO. ” 

4300 FOR Z=1 TO N 

4310 LOCATE 12,1 

4320 PRINT "CAMPO No. ";N$(Z,1);" ”; 
4330 LINE INPUT "==> ";N$(2,3) 

4340 IF VAL(N$(Z,3))=0 THEN GOTO 4310 
4350 NEXT Z 

4360 FOR Z=5 TO 17 

4370 LOCATE Z,1 

4380 PRINT SPACE$(40) 

4390 NEXT Z 

4400 LOCATE 5,1 

4410 FOR Z=1 TO N 

4420 PRINT "EL CAMPO ";N$(Z,1);" SE TABULARA EN LA COLUMNA ";N$(Z,3) 
4430 NEXT Z 

4440 LOCATE 20,1 

4450 PRINT "( ESTA DE ACUERDO ? (S/N)"” 
4460 LET A$=INKEYS$ 

4470 IF A$="S" OR A$="s" THEN GOTO 4500 
4480 IF A$<>"N" AND A$<>"n" THEN GOTO 4460 
4490 GOTO 4220 

4500 FOR Z=5 TO 20 

4510 LOCATE Z,1 

4520 PRINT SPACE$( 40) 

4530 NEXT Z 

4540 LOCATE 5,1 

4550 PRINT "( CUANTAS LINEAS DEJO ENTRE FICHA” 
4560 PRINT "Y FICHA? PULSA -1 PARA CAMBIAR DE" 
4570 PRINT "PAGINA. " 

4580 LOCATE 12,1 

4590 LINE INPUT "==> ";N$(1,4) 

4600 IF VAL(N$(1,4))=0 THEN GOTO 4580 

4610 CLS 

4620 PRINT "OPERACION COMPLETADA” 
A Sd 

4640 LET X=1:LET Y=20 

4650 GOSUB 5440 

4660 CLS 

4670 RETURN 

4680 REM 

4690 REM alaSM SIS lSS Ola lRJS SISI lOlojojo ja 
4700 REM * SUBRUTINA DE ENTRADA DE DATOS * 
4710 REM AMS OSOS SOS” IEEE” SE EOOIOIOJOJOK 
4720 REM 

4730 LET D$="" : LET LO=0 

4740 LOCATE Y,X 

4750 FOR Z=1 TO LO 

4760 PRINT ".”; 

4770 NEXT Z 

4780 LOCATE Y,X 

4790 PRINT "_" 


4800 LOCATE Y,X 
4810 LET A$=INKEY$ 
4820 IF A$="" THEN GOTO 4810 


4830 IF A$=CHR$(8) AND LO>0 THEN LET LO=LO-1:LET D$=LEFT$(D$, LO) 


TE Y,X:PRINT "_.":LOCATE Y,X:GOTO 4810 
4840 IF A$=" " OR A$="." OR A$="-" THEN GOTO 4870 
4850 IF A$=CHR$(13) THEN GOTO 4930 

4860 IF A$>M$ OR A$<W$ THEN GOTO 4810 
4870 PRINT A$;"_" 

4880 LET X=X+1 

4890 LOCATE Y,X 

4900 LET D$=D$+A$ 

4910 LET LO=LO+1 

4920 IF LO<>LO THEN GOTO 4810 

4930 LOCATE Y,X 

4940 FOR Z=LO TO LO 

4950 PRINT + 

4960 NEXT Z 

4970 RETURN 

4980 REM 

4990 REM MMS SISSI jolla lollo lolo Jak 
5000 REM * MENSAJE Y RECOGIDA DE OPCION * 
5010 REM dSodSSS ISSO IO lOlOjolOlOlololOJok 
5020 REM 

5030 LET T$="INTRODUZCA OPCION" 

5040 LET L=17 

5050 LOCATE Y,X 

5060 PRINT T$; 

5070 LOCATE Y,X+19 

5080 PRINT CHBR$(177); 

5090 LET A$=INKEYS 

5100 IF A$<>"" AND (AS$<W$ OR A$>M$) THEN GOSUB 5250 
5110 IF A$<>"" THEN GOSUB 5360:GOTO 5220 
5120 FOR Z=1 TO 100 

5130 NEXT Z 

5140 LOCATE Y,X+19 

5150 PRINT >"; 

5160 LET A$=INKEYS$ 

5170 IF A$<>"" AND (A$<W$ OR A$>M$) THEN GOSUB 5250 
5180 IF A$<>"" THEN GOSUB 5360:GOTO 5220 
5190 FOR Z=1 TO 100 

5200 NEXT Z 

5210 GOTO 5070 

5220 LOCATE Y,X 

5230 PRINT SPACE$(L+3); 

5240 RETURN 

5250 REM 

5260 REM *x*x* ERROR *x*x* 

5270 REM 

5280 LOCATE Y, X+19 

5290 PRINT "ERROR ...” 

5300 FOR Z=1 TO 500 

5310 NEXT Z 

5320 LOCATE Y, X+19 

5330 PRINT ” ":REM 9 ESPACIOS 
5340 LET A$="" 

5350 RETURN 

5360 REM 

5370 REM **x* IMPRESION DE LA OPCION ELEGIDA *xx 
5380 REM 

5390 LOCATE Y, X+19 

5400 PRINT A$; 

5410 FOR Z=1 TO 500 

5420 NEXT Z 

5430 RETURN 

5440 REM 

5450 REM ASS lOjOjSSlOlOlOIOlOjokK 

5460 REM * PULSA UNA TECLA *x 

5470 REM aaa lolo lOlOlOlOlOlOIOkok 


:LET X=X-1:LOCA 
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5480 REM 
5490 LET A$="PULSA UNA TECLA” 
5500 LET L=15 


5510 BEEP 

5520 FOR Z=1 TO 6 

5530 LOCATE Y,X 

5540 PRINT A$; 

5550 IF INKEY$<>"" THEN GOTO 5650 
5560 FOR K=1 TO 100 

5570 NEXT K 

5580 LOCATE Y,X 

5590 PRINT SPACE$(L); 

5600 IF INKEY$<>"" THEN GOTO 5650 
5610 FOR K=1 TO 100 

5620 “NEXT K 


5630 NEXT Z 

5640 GOTO 5510 

5650 LOCATE Y,X 

5660 PRINT SPACES(L); 

5670 RETURN 

5680 REM 

5690 REM ddoMSISSS ASAS ISSO 
5700 REM * SUBRUTINA DE BORRADO REAL DE FICHAS x*x 
B710 REM AddRS SSA A SISSI 
5720 REM 

5730 LET N=0 

5740 FOR Z=1 TO TT 

5750 IF LEFT$(F$(Z),1)<>CHR$(253) THEN GOTO 5810 
5760 LET F$(Z)="" 

5770 LET N=N+1 

5780 FOR X=Z TO TT-1 


5790 LET F$(X)=F$(X+1) 
5800 NEXT X 
5810 NEXT Z 


5820 FOR Z=TT-N+1 TO TT 

5830 LET F$(Z)="" 

5840 NEXT Z 

5850 LET TT=TT-N 

5860 RETURN 

5870 PRINT "ER RO R” 

5880 PRINT "--------- dl 

5890 PRINT 

5900 PRINT "Lo siento pero no he encontrado el campo No. ";NC 
5910 PRINT 
_5920 PRINT "Estas seguro de que las fichas de este fichero tienen";NC; "campos?" 
5930 X=1:Y=20:GOSUB 5440 

5940 CLS 

5950 RETURN 

5960 REM 

5970 REM ASSSSSS OSOS OSOS jala lalo lalolOjoK: 
5980 REM * SUBRUTINA DE CREACION DE MENUS + 
5990 REM dd SAS SISIB ISS ISSO llo lok 
6000 REM 

6010 CLS 

6020 LET X=INT((40-LEN(A$))/2) 

6030 LOCATE 1,X 

6040 PRINT A$ 

6050 LOCATE 2,X 

6060 FOR Z=1 TO LEN(A$) 

6070 PRINT "-"; 

6080 NEXT Z 

6090 PRINT:PRINT 

6100 LET X=0 

6110 FOR Z=1 TO N 

6120 IF X<LEN(A$(Z)) THEN LET X=LEN(A$(Z)) 
6130 NEXT Z 

6140 LET X=INT((40-X)/2) 

6150 FOR Z=1 TO N 


6160 LOCATE 2*Z+3,X 

6170 PRINT Z;"-";A$(Z) 

6180 NEXT Z 

6190 LET X=1:LET Y=21 

6200 GOSUB 4980 

6210 CLS 

6220 RETURN 

6230 REM 

8240 REM AdSMSS OOOO OOOO SISI IOlOlOlOJOK: 

6250 REM * SUBRUTINA DE BUSQUEDA * 

8260 REM Ad4SSMSS SISSI lll lolo JoJOIOK: 

6270 REM 

6280 CLS 

6290 PRINT "BUSCAND O” 

BINARIO 

6310 PRINT 

6320 IF SW=0 THEN PRINT "Buscando las fichas desde la ";N1;" hasta la ";N2 
6330 IF SW=1 THEN PRINT "Buscando las fichas que tengan ”";A$;" en el campo "¡NC 
6340 IF SW=2 THEN PRINT "Buscando fichas borradas” 
6350 PRINT 

6360 PRINT "ESPERA UN MOMENTO" 

6370 FOR Z=1 TO 1000 

6380 NEXT Z 

6390 CLS 

6400 ON SW+1 GOSUB 6490,6580,6770 

6410 CLS 

6420 PRINT "OPERACION TERMINADA” 

A A 

6440 PRINT 

6450 PRINT "No se han encontrado mas fichas.” 

6460 LET X=1:LET Y=20 

6470 GOSUB 5440 

6480 RETURN 

6490 REM 

6500 REM **x* BUSQUEDA POR No. DE FICHA *x*x* 

6510 REM 

6520 FOR R=N1 TO N2 

6530 LET NF=R 

6540 GOSUB 8290 

6550 CLS 

6560 NEXT R 

6570 RETURN 

6580 REM 

6590 REM **x* BUSQUEDA POR CAMPO Y VALOR x*xx 

6600 REM 

6610 IF N(1)<>0 THEN GOTO 6690 

6620 PRINT "ER RO R” 

6630 PRINT "--------- 2 

6640 PRINT 

6650 PRINT "Lo siento. El campo ";NC;”" no existe." 
6660 GOSUB 5440 

6670 CLS 

6680 RETURN E 
6690 LET J$=A$:FOR Z=1 TO TT:LET CD=0:LET CR=0:LET Z1=0 
6700 FOR X=1 TO LEN(F$(2Z)):IF MID$(F$(Z),X,1)=CHR$(254) THEN LET CD=CD+1:IF C 
D=NC THEN LET Z1=X+1:LET X=LEN(F$(Z)) 

6710 NEXT X:FOR X=Z1 TO LEN(F$(Z)):1F MID$(J$,X-Z1+1,1)=MID$(F$(Z),X,1) THEN 
LET CR=CR+1:IF CR=LEN(J$) THEN LET X=LEN(F$(Z)) 

6720 NEXT X 

6730 IF CR=LEN(J$) THEN LET VV=Z:LET NF=Z:GOSUB 8290:LET Z=VV 

6740 NEXT Z 

6750 RETURN 

6760 CLS 

6770 REM 

6780 REM *** BUSQUEDA DE FICHAS BORRADAS *xx 

6790 REM 

6800 FOR Z=1 TO TT 

6810 IF LEFT$(F$(Z),1)<>CHR$(253) THEN GOTO 6870 
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6820 LET F$(Z)=RIGHT3(F$(Z),LEN(F$(Z))-1) 

6830 LET NF=Z 

6840 GOSUB 8290 

6850 CLS:LET Z=NF 

6860 LET F$(Z)=CHR$(253)+F$(Z) 

6870 NEXT Z 

6880 RETURN 

6890 REM 

8900 REM AaaaSSOIOIOIOIS IIS SISIOIOIOIOIOIOIOK 

6910 REM * ORDENACION ALFANUMERICA *x 

6920 REM ddMsSSSSSOSE Sl lO dEl jo jalolalojojojok 

6930 REM 

6940 CLS 

6950 PRINT "ORDENAR YTICHERO” 

8980 PRINT *<=c=n=ccacicorsceesoseosaosos” 

6970 PRINT 

6980 PRINT "Ordenando fichero por el campo No. "¡NC 

6990 PRINT 

7000 PRINT "ESPERA UN MOMENTO" 

7010 IF N(1)>=NC THEN GOTO 7120 

7020 CLS 

7030 PRINT "ERRO R” 

7040 PRINT "--------- id 

7050 PRINT 

7060 PRINT "Lo siento pero no he encontrado el campo No. ";NC 
7070 PRINT 

7080 PRINT "Estas seguro de que las fichas de este fichero tienen";NC; "campos?" 
7090 X=1:Y=20:GOSUB 5440 

7100 CLS 

7110 RETURN 

7120 FOR Z=1 TO TT<LET CC=O:LET CD=0 

7130 FOR X=1 TO Z:FOR R=1 TO LEN(F$(Z)):IF MID$(F$(Z),R,1)=CHR$(254) THEN LET 
CC=CC+1: IF CC=NC THEN LET Z1=R+1:LET R=LEN(F$(Z)) 

7140 NEXT R:LET CC=0:FOR R=1 TO LEN(F$(X)): IF MID$(F3(X),R,1)=CHR$(254) THEN 
LET CC=CC+1:IF CC=NC THEN LET Z2=R+1:LET R=LEN(F$(X)) 

7150 NEXT R:IF MID$(F$(Z),Z1)<MID$(F$(X),Z2) THEN LET A$=F$(Z):LET F$(Z)=FS(X 
):LET F$(X)=A$ 

7160 NEXT X 

7170 NEXT Z 

7180 CLS:PRINT "OPERACION TERMINADA” 
7190 PRI 

7200 PRINT 

7210 PRINT "El fichero esta ordenado por el campo No. ";NC 
7220 X=1:Y=20:GOSUB 5440 

7230 CLS 

7240 RETURN 

7250 REM 

72860 REM ASSSSISIO SISSI SS ISlSIO SSI alla lolojojok 

7270 REM * DEFINICION DE UN FICHERO NUEVO * 

AA E 

7290 REM 

7300 CLS 

7310 LET A$="CREACION DE UN FICHERO” 

7320 LET N=2 

7330 LET A$(1)="UTILIZAR UNO QUE ESTE CREADO” 

7340 LET A$(2)="CREAR UNO NUEVO” 

7350 GOSUB 5960 

7360 IF A$="1" THEN GOTO 7640 

7370 PRINT " CREACION DE UN NUEVO FICHERO" 

7380 PRINT *----==========nno oo só 

7390 PRINT:PRINT 

7400 PRINT " Por favor, responda a las preguntas quele van a aparecer a continua 
cion.” 

A 

7420 LOCATE 9,1 i 

7430 INPUT "Cuantos campos tendra cada ficha?";N(1) 

7440 IF N(1)<0 OR N(1)>20 THEN GOTO 7420 

7450 DIM M$(N(1)+1) 


7460 PRINT 

7470 FOR Z=1 TO N(1) 

7480 LOCATE 16,1 

7490 PRINT " 

7500 LOCATE 18,1 

7510 PRINT " 

7520 LOCATE 16,1 

7530 PRINT "Cuantos caracteres ocupa el campo ";Z 
7540 INPUT N(Z+1) 

7550 LOCATE 18,1 

7560 PRINT "Como se llama este campo" 
7570 INPUT M$(Z) 

7580 NEXT Z 

7590 CLS 

7600 PRINT "OPERACION TERINADA” 

7610 LET X=1:LET Y=20 

7620 GOSUB 5440 

7630 RETURN 

7640 REM 

7650 REM **x* UTILIZACION DE UN FICHERO YA CREADO *xx 
7660 REM 

7670 CLS 

7680 PRINT " CREACION DE UN FICHERO” 

TOROS PERINTE. CIERRE 

7700 PRINT 

7710 PRINT " Teclea el nombre del fichero que ya tiene una estructura definida y 
del cual laquieres copiar." 

7720 PRINT:PRINT:PRINT 

7730 INPUT "NOMBRE = ";N$ 

7740 PRINT:PRINT 

7750 PRINT " Asegurate de que esta colocada la cintao disco que contiene dicho f 
ichero" 

7760 LET X=1:LET Y-20 

7770 GOSUB 5440 . 
7780 CLS 

7790 PRINT "LEYENDO ... ”;N$ 

7800 OPEN N$ FOR INPUT AS $1 

7810 INPUT$1,T 

7820 DIM M$(T+1) 

7830 FOR Z=1 TO T 

7840 INPUT*1,N(Z+1) 

7850 NEXT Z 

7860 LET N(1)=T 

7870 FOR Z=1 TO T 

7880 INPUTH1,M$(Z) 

7890 NEXT Z 

7900 CLOSE+*1: CLS 

7910 PRINT "CONFIGURACION LEIDA” 

7920 PRINT:PRINT 

7930 PRINT "Cada ficha tiene ";T;" campos" 
7940 PRINT 

7950 FOR Z=1 TO T 

7960 PRINT "el campo ";Z;" se llama “;M$(Z) 
7970 NEXT Z 

7980 LET X=1:LET Y=21 

7990 GOSUB 5440 

8000 RETURN 

8010 REM 

8020 REM AMASS SMS SIS SIMIO ISSO lOlSSIOlOIOlSOJOK 

8030 REM * INTRODUCCION DE FICHAS x*x 

8040 REM AMOS SISIS SIS SISSI ISlOlSJSIOIO OK 

8050 REM 

8060 PRINT 

8070 PRINT "INTRUDUCIENDO LA FICHA ";NF 
8080 PRINT 

8090 FOR R=1 TO N(1) 

8100 LOCATE 10,1 

8110 PRINT MS(R);" : *; 
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8120 LET X=LEN(M$(R))+4 

8130 LET Y=10 

8140 LET M$="z" 

8150 LET W$="0" 

8160 LO=N(R+1):GOSUB 4680 

8170 LOCATE 20,1 

8180 PRINT "ESTA CORRECTO ESTE CAMPO (S/N)" 
8190 LET A$=INKEYS$: IF A$="" THEN GOTO 8190 
8200 IF A$="N" OR A$="n" THEN GOTO 8100 
8210 IF A$<>"S" AND A$<>"s" THEN GOTO 8190 
8220 LET FS(NF)=F$(NF)+D$+CHR$(254) 

8230 LOCATE 10,1 

8240 PRINT SPACE$(80) 

8250 LOCATE 20, 1 

8260 PRINT SPACE$(40) 

8270 NEXT R 

8280 RETURN 

8290 REM 

8300 REM AddSSdSSOSOOO Ojo lOjOlOjoJok 

8310 REM * VER UNA FICHA x* 

8320 REM AdMsRdSSIOOOO lolo lojolojolok 

8330 REM 

8340 CLS:LET CC=1 

8350 PRINT "FICHA No. ";NF 

8360 PRINT:PRINT M$(CC);" ”; 

8370 IF LEFTS(F$(NF),1)=CHR$(253) THEN PRINT "ESTA FICHA ESTA BORRADA”":GOSUB 5: 
O: RETURN 

8380 FOR Z=2 TO LEN(F$(NF)) 

8390 IF MID$(F$(NF),Z,1)=CHR$(254) THEN LET CC=CC+1:PRINT:PRINT M$(CC);" ";:t 
OTO 8410 

8400 PRINT MID$(F$(NF),Z,1); 

8410 NEXT Z 

8420 GOSUB 5440 

8430 RETURN 


COMMODORE 


3140 CLOSE + 1:RETURN 
3170 PRINT 

TAB(VAL(NS(S, 3))):¡MS(VAL(NS(S,2))); 
3180 NEXT S:PRINT 

3230 PRINT CHR$(147) 

3280 GET AS 

3330 PRINT CHR$(147) 

3440 PRINT CHR$(147) 

3470 POKE 214,4:POKE 211,0 

3490 POKE 214,11:POKE 211,0 

3530 POKE 214,4:POKE 211,0 

3550 POKE 214,8:POKE 211,0 

3580 POKE 214,11:POKE 211,0 

3590 PRINT “ ”":REM 10 ESPACIOS 
3600 POKE 214,11:POKE 211,0 

3630 POKE 214,8:POKE 211,21 

3680 PRINT “<CURSOR-IZ>"”;" ” 

3690 POKE 214,4:POKE 211,0 

3730 POKE 214,9:POKE 211,0 

3760 POKE 214,11:POKE 211,0 

3770 PRINT “ ”:REM 10 ESPACIOS 
3780 POKE 214,11:POKE 211,0 

3810 POKE 214,9:POKE 211,21 

3860 PRINT “<CURSOR-IZQ>”;" ” 

3870 POKE 214,11:POKE 211,0 

3960 PRINT CHR$(147) 

4010 PRINT “<CURSOR-IZQ>”;" ” 

4080 PRINT “<CURSOR-IZQ>”;" ” 

4090 POKE 214,11:POKE 211,0 

4150 POKE 214,14:POKE 211,0 

4170 GETAS 

4200 REM 

4230 POKE 214,Z-1:POKE 211,0 

4240 FOR Q=1 TO 40:PRINT “ ';::NEXT Q 
4260 POKE 214,4:POKE 211,0 

4310 POKE 214,11:POKE 211,0 

4370 POKE 214,Z-1:POKE 211,0 

4380 FOR Q=1 TO 40:PRINT “ ";:NEXT Q 
4400 POKE 214,4:POKE 211,0 

4440 POKE 214,19:POKE 211,0 

4460 GET AS 

4510 POKE 214,Z-1:POKE 211,0 

4520 FOR Q=1 TO 40:PRINT “ ”;:NEXT Q 
4540 POKE 214,4:POKE 211,0 

4580 POKE 214,11:POKE 211,0 

4610 PRINT CHR$(147) 

4660 PRINT CHR$(147) 

4740 POKE 214,Y:POKE 211,X 

4780 POKE 214,Y:POKE 211,X 

4800 POKE 214,Y:POKE 211,X 
4810 GET AS 

4830 IF AS=CHR$(20) AND LO>0 THEN LET 
LO=LO-1:LET D$=LEFTS(DS$,LO):LET 
X=X-1:POKE 214,Y:POKE 211,X:PRINT 
“-.".POKE 214,Y:POKE 211,X:GOTO 4810 


4890 POKE 214,Y:POKE 21 
4930 POKE 214,Y:POKE 21 
5050 POKE 214,Y:POKE 21 
5070 POKE 214,Y:POKE 21 
5080 PRINT CHR$(102): 
5990 GET AS 

5140 POKE 214,Y:POKE 211,X+19 

5160 GET AS 

5220 POKE 214,Y:POKE 211,X 

5230 FOR Q=1 TO L+3:PRINT “ ”;:NEXT Q 
5280 POKE 214,Y:POKE 211,X+19 

5320 POKE 214,Y:POKE 211,X+19 

5390 POKE 214,Y:POKE 211,X+19 

5510 REM 

5530 POKE 214,Y:POKE 211,X 

5550 GET BS:IF B$<>"” THEN GOTO 5650 


1,X 
1,X 
1,X 
1,X 


+19 


-5580 POKE 214,Y:POKE 211,X 


5590 FOR Q=1 TO L:PRINT “ ”;:NEXT Q 

5600 GET B$:IF B$<>" "THEN GOTO 5650 

5650 POKE 214,Y:POKE 211,X 

5660 FOR Q=1 TO L:PRINT " ”;:NEXT Q 

5940 PRINT CHR$(147) 

6010 PRINT CHR$(147) 

6030 POKE 214,1:POKE 211,X 

6050 POKE 214,2:POKE 211,X 

6160 POKE 214,2'Z+3:POKE 211,X 

6210 PRINT CHR$(147) 

6280 PRINT CHR$(147) 

6390 PRINT CHR$(147) 

6410 PRINT CHR$(147) 

6550 PRINT CHR$(147) 

6670 PRINT CHR$(147) 

6760 REM 

6850 PRINT CHR$(147):LET Z=NF 

6940 PRINT CHR$(147) 

7020 PRINT CHR$(147) 

7100 PRINT CHR$(147) 

7180 PRINT CHR$(147);" OPERACION 
TERMINADA” 

7230 PRINT CHR$(147) 

7300 PRINT CHR$(147) 

7420 POKE 214,8:POKE 211,0 

7480 POKE 214,15:POKE 211,0 

7500 POKE 214,17:POKE 211,0 

7520 POKE 214,15:POKE 211,0 

7550 POKE 214,17:POKE 211,0 

7590 PRINT CHR$(147) 

7670 PRINT CHR$(147) 

7780 PRINT CHR$(147) 

7800 OPEN 1,1,0,N$ 

7900 CLOSE +1:PRINT CHR$(147) 

8100 POKE 214,9:POKE 211,0 

8170 214,19:POKE 211,0 

8190 GET AS: IF A$="” THEN GOTO 8190 

8230 POKE 214,9:POKE 211,0 

8240 FOR Q=1 TO 80:PRINT “ "::NEXT Q 

8250 POKE 214,19:POKE 211,0 
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8260 FOR A=1 TO 80:PRINT * ”;:NEXT Q 
8340 PRINT CHR$(147):LET CC=1 


SPECTRUM: 


220 DIM F$(200,100):DIM A$(10,20):DIM 
N(20):DIM N$(20,4,3) 

470 GOTO 
490'(A=1)+650"(A=2)+1050'(A=3)+ 
1150"(A=4)+145"(A=5)+1990"(A=6)+ 
2550'(A=7)+3200"(A=8) 

590 PRINT AT 19,0; . 

760 LET.  A=VAL(A$):GOTO 
770'(A=1)+850'(A=2)+890"(A=3)+ 
980'(A=4) 

1340 LET  A=VAL(A$):GOTO 
1350'(A=1)+1390"(A=2)+1430'(A=3) 
1600 IF LEN(BS) >10 THEN GOTO 1590 
1640 SAVE *“M”;1;B$+"1” DATA N( 
1650 SAVE *“M”;1:B$+"2” DATA M$0 
1660 SAVE *“M”;1:B$+"3"” DATA FS() 
1670 SAVE *“M”;1:B5+"4” DATA NSO 
1680 REM 

1690 REM 

1700 REM 

1710 REM 

1720 REM 

1730 REM 

1740 REM 

1750 REM 

1760 REM 

1770 REM 

1780 REM 

1790 REM 

1810 SAVE B$+"1” DATA N( 

1820 SAVE B$+"2” DATA M$0 

1830 SAVE B$+"3” DATA FS() 

1840 SAVE B$+"4” DATA N$() 

1850 REM 

1860 REM 

1870 REM 

1880 REM 

1890 REM 

1900 REM 

1910 REM 

1920 REM 

1930 REM 

1940 REM 

1950 REM 

1960 REM 

1970 REM 

2140 IF LEN(B$)> 10 THEN GOTO 2130 
2170 LOAD *“M”;1:B$+"1" DATA N( 
2180 LOAD *“M”;1;B$+"2" DATA M$() 
2190 LOAD *“M”:1:B$+"3” DATA FS() 
2200 LOAD *“M”;1:B5+"4” DATA NSO 
2210 FOR Q=1 TO 200 


2220 IF FS(Q)="” THEN LET TT=Q-1:LET 
=200 y 
2230 NEXT Q 

2240 REM 

2250 REM 

2260 REM 

2270 REM 

2280 REM 

2290 REM 

2300 REM 

2310 REM 

2320 REM 

2330 REM 

2340 REM 

2360 LOAD "“M”;1:B$+"1" DATA N( 

2370 LOAD *“M”;1;B$+"2” DATA M$0 
2380 LOAD *“M”;1;B$+"3" DATA FS() 

2390 LOAD *“M”:1:B$+"4” DATA NS$() 
2400 FOR Q=1 TO 200 

2410 IF FS(Q)="” THEN LET-TT=Q-1:LET 
Q=200 

2420 NEXT Q 

2430 REM 

2440 REM 

2450 REM 

2460 REM 

2470 REM 

2480 REM 

2490 REM 

2500 REM 

2510 REM 

2520 REM 

2530 REM 

2740 PRINT AT A,O; 

3030 IF FS(Z,V)=CHR$(254) THEN LET 
CD=CD+1:IF CD=CC THEN LET Z1=V+1:LET 
V=LEN(FS(Z)) 

3060 IF FS(Z,V)=CHR$(254) THEN LET 
V=LEN(F$Z)):GOTO 3080 

3070 LPRINT FS(Z,V); 

3470 PRINT AT 4,0; 

3490 PRINT AT 11,0; 

3500 INPUT LINE “==> ”;¡A$ 

3530 PRINT AT 4,0; 

3550 PRINT AT 8,0; 


3580 PRINT AT 11,0; 

3590 PRINT “ "-REM 10 ESPACIOS 
3600 PRINT AT 11,0; 
3610 INPUT LINE “==> ”¡N$(Z,1) 
3630 PRINT AT 8,21; 


3680 REM 

3690 PRINT AT 4,0; 

3730 PRINT AT 9,0; 

3760 PRINT AT 11,0; 

3770 PRINT * ”:REM 10 ESPACIOS 


3780 PRINT AT 11,0; 
3790 INPUT LINE “==>;N$(Z,2) 


3810 PRINT AT 9,21; 
3860 REM 

3870 PRINT AT 11,0; 
4010 REM 

4080 REM 

4090 PRINT AT 1 
4150 PRINT AT 1 
4200 REM 
4230 PRINT AT Z 
4240 FOR Q=1 
4260 PRINT AT 4.0 
4310 PRINT AT 1 
4330 INPUT LINE 
4370 PRINT AT Z- 7 
4380 FOR Q=1 1 
4400 PRINT AT 4, 
4440 PRINT AT 1 
4510 PRINT AT Z 
4520 FOR Q=1TO 40:PRINT " "¡NEXT Q 
4540 PRINT AT 4,0; 

4580 PRINT AT 11,0; 
4590 INPUT LINE “==> 
4740 PRINT AT Y X: 
4780 PRINT AT YX: 
4800 PRINT AT YX: 
4830 IF AS=CHR$(8) AND LO>0 THEN LET 
LO=LO-1:LET D$=DS$ ( TO LO):LET 
X=X-1:PRINT AT Y,X:“-."¿AT Y, X::GOTO 4810 
4890 PRINT AT Y,X; 

4930 PRINT AT Y, X: 

5050 PRINT AT Y,X: 

5070 PRINT AT AT T,X+19; 

5080 PRINT PAPER O, “ ” 

5140 PRINT AT Y,X+19; 

5220 PRINT AT YX; 

5230 FOR Q=1 TO L+3:PRINT “ ”::NEXT Q 
5280 PRINT AT Y,X+19; 

5320 PRINT AT Y,X+19; 

5390 PRINT AT Y ,X+19; 

5510 BEEP .2,15 

5530 PRINT AT YX; 

5580 PRINT AT Y,X; 

5590 FOR Q=1 TO L:PRINT “ ”;:NEXT Q 
5650 PRINT AT Y,X; 

5660 FOR Q=1 TO L:PRINT “ ”;:NEXT Q 
5750 IF FS(Z,1)<> CHR$(253) THEN GOTO 
5810 

6030 PRINT AT 0,X; 

6050 PRINT AT 1,X: 

6160 PRINT AT 2'Z+2,X; 

6400 GOTO 
6490'(SW=0)+6580"(SW=1)+6770'(SW=2) 
6700 FOR X=1 TO LEN(FS$(Z)):1F 
FS(Z,X)=CHR$(254) THEN LET CD=CD+1:IF 
CD=NC THEN LET Z1=X+1:LET X=LEN(FS(Z)) 
6710 NEXT X:FOR Z=Z1 TO LEN(FS(Z)):1F 
JS(X-Z1+1)=FS(Z,X) THEN LET CR=CR+1:1F 


> "¡N5(1,4) 


CR=LEN(J$) THEN LET X=LEN(F$(Z)) 

6810 IF FS(Z,1)<>CHR$(253) THEN GOTO 
6870 

6820 LET FS(Z)=F$(Z, 210) 

7130 FOR Z=1 TO Z:FOR R=1 TO 
LENCFS(Z)):1F FS(Z,R)=CHR$(254) THEN LET 
CC=CC+1:IF CC=NC THEN LET Z1=R+1:LET 
R=L EN(FS(Z)) 

7140 NEXT R:LET CC=0:FOR R=1 TO 
LENCESOO):1F FS(X,R)=C CHR$(254) THEN 
LET CC=CC+1:1F CC=NC THEN LET Z2R+1:LET 
R=LEN(FSOO) 

7150 NEXT R:IF FS(Z,Z1 TO)<F$(X,Z2 TO) 
THEN LET AS=FS(Z):LET F$S(Z)=FS(X):LET 
FSOO=AS 

7420 PRINT AT 8,0; 

7450 DIM MS(N(1)+1,20) 

7480 PRINT AT 15,0; 

7500 PRINT AT 17,0; 

7520 PRINT AT 15,0; 

7550 PRINT AT 17,0; 

7800 LOAD B$ DATA N( 

7810 LOAD B$ DATA M$0 

7820 REM 

7830 REM 

7840 REM 

7850 REM 

7860 REM 

7870 REM 

7880 REM 

7890 REM 

7900 CLS 

8100 PRINT AT 9,0; 

8170 PRINT AT 19,0; 

8230 PRINT AT 9,0; 

8240 FOR Q=1 TO 80:PRINT “ ”::NEXT Q 
8250 PRINT AT 19,0: 

8260 FOR Q=1 TO 80:PRINT “ ”::NEXT Q 
8370 IF FS(NF,1)=CHR$(253) THEN PRINT 
“ESTA FICHA ESTA BORRADA”:GOSUB 
5440:RETURN 

8390 IF FS(Z,1)=CHR$(254) THEN LET 
CC=CC+1:PRINT:PRINT MS(CC); “ ”::GOSUB 
8410 

8400 PRINT FS(NF,Z); 


MSX Y AMSTRAD: 


590 LOCATE 1,20 
2740 LOCATE 1,5 
3470 LOCATE 1,5 
3490 LOCATE 1,9 
3580 LOCATE 1,12 
3600 LOCATE 1,12 
3630 LOCATE 22,9 
3690 LOCATE 1,5 
3730 LOCATE 1,10 
3760 LOCATE 1,12 
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3780 LOCATE 1,12 
3810 LOCATE 22,10 
3870 LOCATE 1,12 
4090 LOCATE 
4150 LOCATE 
4230 LOCATE 
4260 LOCATE 
4310 LOCATE 
4370 LOCATE 
4400 LOCATE 
4440 LOCATE 
4510 LOCATE 
4540 LOCATE 
4580 LOCATE 
4740 LOCATE X, 
4780 LOCATE X,Y 

4800 LOCATE X,Y 

4830 IF AS=CHR$(8) AND LO>0 THEN LET 
LO=LO-1:LET DS$=LEFTS(DS$,LO):LET 
X=X-l1:LOCATE Y,Y:PRINT “-.”":LOCATE 
X,Y:GOTO 4810 

4890 LOCATE X,Y 

4930 LOCATE X,Y 


—— 
=— 
ES 


N 


A 


N 


<3ONNONSONS 


5050 LOCATE X,Y 

5070 LOCATE X+19,Y 
5140 LOCATE X=19,Y 
5220 LOCATE X,Y 

5280 LOCATE X+19,Y 
5320 LOCATE X+19,Y 
5390 LOCATE X+19,Y 
5530 LOCATE X,Y 

5580 LOCATE X,Y 

5650 LOCATE X,Y 

6030 LOCATE X, 1 

6050 LOCATE X, 
6160 LOCATE 
7420 LOCATE 
7480 LOCATE 
7500 LOCATE 
7520 LOCATE 
7550 LOCATE 
8100 LOCATE 
8170 LOCATE 
8230 LOCATE 
8250 LOCATE 


*Z+3 
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AMOS a describir en 
las siguientes pági- 
nas la estructura ge- 
neral que suelen 
adoptar los diferen- 
tes documentos en 
que se plasma el di- 
seño de un sistema in- 
formático. Naturalmente, la organización 
general e, incluso, el contenido de un 
dossier complejo de este estilo puede 
variar mucho dependiendo de los están- 
dares que se sigan, del tipo de sistema a 
diseñar, o de las personas que lo redac- 
ten, pero vamos a presentar un esquema 
muy común de documentos y que, por 
tanto, será útil en la mayoría de los ca- 
sos que se presenten. 

Tal como se indica en el recuadro ad- 
junto, se suelen incluir cuatro partes dife- 
rentes en el dossier de análisis del siste- 
ma correspondiente; desglosadas, a su 
vez, en varios apartados, hasta un total 
de diez epígrafes diferentes. 


mn Datos generales del sistema 


Este documento normalmente es utili- 
zado a modo de presentación e identifi- 
cación del conjunto del sistema que se 
diseña. Suele contener los siguientes 
apartados: 


a) Nombre del sistema o aplicación. 
Ha de ser un nombre conciso por el que 
se pueda aludir a la aplicación comple- 
ta, pero lo suficientemente claro como 
para que a la vista del nombre las perso- 
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DISEÑO DE SISTEMAS 


ESTRUCTURA DEL DISEÑO DE UN SISTEMA 
INFORMATICO 


A. Información general. 
1. Datos generales del sistema. 
2. Presentación del sistema. 
3. Organigrama general. 
4. Organigramas de detalle. 
Entradas y salidas. 
5. Diseño de documentos de sa- 
lida. 
6. Diseño de los datos de entra- 
da. 
. Estructura y procesos internos. 
7. Definición de cálculos. 
8. Tablas de decisiones lógicas. 
9. Datos interrelacionados e his- 
tóricos. 
Referencias y lista de contenido. 
10. Relación general de campos, 
referencias y datos utilizados. 


nas involucradas sepan de qué aplica- 
ción se trata. La identificación ha de ser 
lo más precisa posible, deslindándola de 
otras con ella relacionadas y sugiriendo 
el contenido exacto de los procesos que 
se realizan. Un nombre de dos o tres pa- 
labras suele ser lo adecuado. A veces se 
utiliza una estructura en etapas para es- 


tos nombres: por ejemplo, «Personal» 
para el sistema en general; «Personal. 
base de datos», «Personal, nóminas», 


«Personal, histórico», etc., para los dife- 
rentes procesos; «Personal, nóminas, da- 
tos variables», «Personal, nóminas, coefi- 
cientes», «Personal, nóminas, altas y ba- 
jas», etc., para los procesos de detalle. 
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b) Número de la aplicación. Un núme- 
ro o código alfanumérico (letras y núme- 
ros) para control e identificación auto- 
mática. Caben dos posibilidades: nume- 
ración sucesiva de los diferentes siste- 
mas y aplicaciones desarrollados en una 
organización o numeración en etapas 
(como se ha indicado anteriormente 
para el nombre literal) en la que se nu- 
meran con uno o dos dígitos (o letras) los 
diferentes sistemas y, dentro de cada 
uno, con otro u otros dígitos o letras los di- 
ferentes subsistemas, dentro de los cua- 
les se numeran las diferentes aplicacio- 
nes, etc. 

Cc) Número de revisión. Es usual tener 
que realizar sucesivos diseños de un mis- 
mo proceso. Conviene ir numerando su- 
cesivamente estas versiones diferentes 
que del mismo sistema (y su documenta- 
ción correspondiente) se van elaboran- 


do. A veces se utiliza una numeración de- 
cimal (sobre todo en documentos o siste- 
mas que se actualizan con cierta fre- 
cuencia) utilizando los números enteros 
para las versiones que aportan cambios 
sustanciales y las cifras decimales para 
las pequeñas actualizaciones, obtenién- 
dose una secuencia de revisiones del 
tipo: 2.1; 2.2; 2.3 (pequeños cambios); 
3.1 (modificaciones importantes respec- 
to de lo anterior); 3.2 (de nuevo cambios 
de poca importancia); 3.3..., etc. 

d) Departamento. Se refiere al depar- 
tamento de la empresa al que va desti- 
nado el sistema que se diseña. Depen- 
diendo de la organización de la que se 
trate, en este u otros epígrafes equivalen- 
tes se incluirá unos datos u otros; el obje- 
tivo es, sencillamente, situar en la estruc- 
tura de la empresa u organización, el sis- 
tema informático objeto de estudio. 
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Preparado por: 


Revisado por: Aceptado por: 


e) Equipo. Es útil referenciar el equipo 
físico (ordenador) sobre el que va a fun- 
cionar el sistema, si existen varios en la 
organización correspondiente. En este 
apartado se pueden incluir comentarios 
sobre los periféricos que se utilizarán o 
sobre algún dispositivo especial que se 
use en este sistema. 

f) Control del trabajo de diseño. Es 
usual incluir varios casilleros donde se re- 
señen las personas que han diseñado y 
supervisado el sistema y la fecha en que 
se ha hecho. También, en ocasiones, se 
prevé una «aceptación» del diseño por 
parte del responsable del departamento 
que será usuario final del sistema una vez 
puesto en marcha. 


O Presentación del sistema 


Descripción global del sistema donde 
se indiquen las ideas generales acerca 
del sistema que se diseña, su utilidad y fi- 
nalidad, sus parámetros representativos, 
etcétera. 

Deberían incluirse en esta breve pre- 
sentación descriptiva, al menos, los si- 
guientes puntos: 

a) Clasificación de la aplicación. 
Tipo de aplicación de que se trate (ge- 
nérica, particular, etc.) y finalidad a que 
se destina. 

b) Objetivo. Actividad que se trata de 
informatizar. Problemas concretos a re- 
solver. 

Cc) Utilidad. Ventajas generales que se 
derivarán de la implementación del siste- 
ma que se diseña: menores costes, tiem- 


pos de proceso más cortos, más fiabili- 
dad en los datos, obtención de datos o 
informaciones no disponibles por el siste- 
ma actual, etc. 

d) Resultados a obtener. Informes que 
se derivarán de los procesos concebi- 
dos: contenido, finalidad, etc. Presenta- 
ción global de estos informes poniendo 
el acento en su funcionalidad más que 
en su contenido o estructura formal. 

e) Datos de entrada a partir de los 
cuales se realizarán los procesos previs- 
tos; su obtención, características genera- 
les. Como en el caso d), más aspectos 
funcionales que de otro tipo. 

f) Volúmenes representativos de la 
aplicación. Volúmenes de datos que se 
prevén, tiempos de proceso, periodici- 
dad de la ejecución, etc. 

g) Plan de puesta en marcha. Proble- 
mas que pueden aparecer en la imple- 
mentación del sistema. Requisitos para la 
conversión de datos del sistema actual al 
propuesto o desde otras aplicaciones a 
la presente. Tareas a realizar para el 
arranque del sistema. 

h) Plan de tiempos de la puesta en 
marcha. Cuantificación y planificación 
de tiempos para las actividades del apar- 
tado anterior. 

í) Elementos hardware a utilizar. Con- 
figuración de equipo necesario (sobre 
todo si no es la configuración normal uti- 
lizada en otras aplicaciones). 

J Posibilidades de expansión. Co- 
mentario sobre las previsiones actuales 
de modificación o expansión futura del 
sistema (si está previsto que se produz- 
can). 


ÓMO se distinguen 
las diferentes repre- 
sentaciones internas 
de los tipos de datos 
numéricos en los len- 
guajes de alto nivel? 
A menudo es preciso 
declarar explícita- 
mente lo que deseamos que haga el or- 
denador con nuestros datos. En BASIC, 
por ejemplo, es el propio nombre de la 
variable el que decide cómo se van a re- 
presentar sus valores en la memoria del 
ordenador. Así, si definimos una variable 
cuyo nombre termina en el carácter «%» 
(tanto por ciento) el intérprete de BASIC 
sabe automáticamente que esta varia- 
ble va a tomar sólo valores enteros, y que 
deseamos que los guarde en la memoria 
como números binarios de dieciséis ci- 
fras. De igual manera, los nombres termi- 
nados en un signo de admiración indican 
que los valores pueden contener deci- 
males, y que deben guardarse en la me- 
moria en punto flotante, con una preci- 
sión normal, ocupando un total de cua- 
tro octetos o bytes por cada valor que se 
les asigne. Por último, un nombre que ter- 
mina en el signo «%» indica que se de- 
sean guardar los valores en punto flotan- 
te, pero con una precisión doble, ocu- 
pando un total de ocho octetos por cada 
valor. En condiciones normales, los nom- 
bres que no terminan en un carácter es- 
pecial, sino en una letra corriente, se 
considerarán como variables cuyos valo- 
res se almacenan como números en pun- 
to flotante de precisión normal. Es decir, 
la ausencia de un carácter especial al fi- 
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nal del nombre se considera equivalen- 
te a la presencia del signo de admira- 
ción. 

Veamos algunos ejemplos: 


NZ VALORZ 
A! NN! X AB AB! 
Ne PIS 


DIM A(3), A$(2,2), AZ (5) 


Las variables de la primera línea adop- 
tarán únicamente valores enteros, que 
ocuparán dos octetos. Las de la segun- 
da línea tomarán valores con decimales, 
que se guardarán en memoria como nú- 
meros en punto flotante, de cuatro octe- 
tos. Las variables de la tercera línea to- 
marán también valores en punto flotante, 
pero con más cifras decimales, ocupan- 
do ocho octetos cada una. Finalmente, 
en la cuarta línea se definen variables de 
los tres tipos, pero que además son vec- 
tores o matrices. Obsérvese que la adi- 
ción de un carácter especial al final de 
un nombre es suficiente para que se tra- 
te de una variable diferente, de manera 
que pueden existir al mismo tiempo las 
cuatro variables A, A!, A% y Af. La prime- 
ra (A) queda definida como un vector de 
tres elementos en precisión normal, por 
lo que cada elemento ocupará cuatro 
octetos y los tres juntos un total de doce 
octetos. La segunda (A!) es un escalar 
(tiene un solo valor) en precisión simple 
y ocupará cuatro octetos. La tercera 


(A%) es una matriz de valores enteros de 
dos filas y dos columnas, cuyos elemen- 
tos ocupan dos octetos cada uno, lo que 
hace un total de ocho octetos. Finalmen- 
te la cuarta variable (A+) es un vector de 
cinco valores que se guardarán como 
números en punto flotante en precisión 
doble (ocho octetos cada uno), lo que 
hace un total de cuarenta octetos. 

¿Y todo esto para qué sirve? ¿Por qué 
nos importa cuál sea la precisión de los 
valores, el número de los caracteres que 
ocupan, o si están en binario entero o en 
punto flotante? Pues bien: resulta que co- 
nocer la precisión en que se encuentran 
los datos es importante. En algunos ca- 
sos, tendremos que hacer operaciones 
con decimales en las que nos interese 
que la precisión sea lo mayor posible. Tal 
vez la precisión normal (que equivale a 
unas siete cifras decimales significativas 
exactas) no baste para nuestros propósi- 
tos. En tal caso exigiremos que los cálcu- 
los se realicen con mayor precisión (pre- 
cisión doble, que equivale a unas quin- 
ce cifras decimales exactas) y añadire- 
mos al final del nombre de nuestras va- 
riables el signo «A». 

Otras veces sucede lo contrario. La 
precisión de las operaciones no es cues- 
tión que nos interese demasiado, porque 
vamos a trabajar con números enteros 
pequeños, que pueden almacenarse 
con facilidad como binarios de dieciséis 
cifras (dos octetos). Ocurre que las ope- 
raciones realizadas con números binarios 
enteros suelen ser mucho más rápidas 
que las que se llevan a cabo en punto 
flotante, y las de precisión normal más rá- 
pidas que las de precisión doble. Por tan- 
to, si la rapidez en los cálculos es nues- 
tra primera consideración, procuraremos 
que todas nuestras variables sean ente- 
ras y les pondremos nombres terminados 
en el carácter «%». 

Por último, podría ocurrir que parte de 
nuestras variables puedan tomar valores 
decimales durante la ejecución del pro- 
grama, mientras que otras serán siempre 
enteras y otras exigirán mayor precisión 
en los cálculos. En tal caso, podemos uti- 
lizar el carácter de terminación adecua- 
do para optimizar el programa y hacer 
que cada dato se encuentre en la me- 
moria en la forma interna más adecuada 
para el buen funcionamiento del conjun- 
to. Esto es especialmente útil si tenemos 
problemas de memoria disponible (es de- 


cir, si el programa es muy grande y los 
datos ocupan demasiado espacio). En 
tal caso puede ser absolutamente nece- 
sario reducir un poco el espacio ocupa- 
do por algunas variables (las que man- 
tengan siempre valores enteros peque- 
ños) para que el programa pueda llegar 
a funcionar. 

Si nuestro programa va a utilizar al mis- 
mo tiempo numerosas variables enteras, 
en precisión normal o en precisión doble, 
puede llegar a ser molesto tener que es- 
cribir tantas veces el carácter final del 
nombre que indica al intérprete cuál es 
la representación interna elegida. Para 
evitarlo, algunos intérpretes de BASIC 
permiten al programador decidir que 
ciertas letras iniciales de nombre indi- 
quen automáticamente el tipo de que se 
trata, siempre que la variable no termine 
en uno de los caracteres especiales, 
pues éstos tienen siempre precedencia. 
Veamos un ejemplo de aplicación de es- 
tas instrucciones declarativas, que de- 
ben situarse siempre al principio del pro- 
grama: 


La instrucción DEFINT N le dice al intér- 
prete de BASIC que deseamos que toda 
variable cuyo nombre comience por NÑN y 
no termine en uno de los caracteres es- 
peciales debe ser considerada como ente- 
ra (integer en inglés). En cuanto a la ins- 
trucción DEFBDBL A-C, indica que las va- 
riables que comiencen porA,BoCyno 
terminen en los caracteres especiales 
serán automáticamente variables en 
punto flotante en doble precisión. Si es- 
tas dos instrucciones hubieran aparecido 
en nuestro programas antes de la utiliza- 
ción de las variables que vimos más arri- 
ba, la representación interna de éstas 
habría cambiado de la siguiente mane- 
ra: la variable N, que en ausencia de la 
instrucción DEFINT habría tenido valores 
en punto flotante en precisión normal, 
pasará a recibir valores binarios enteros. 
Las variables N4, N% y N! no se verán 
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afectadas. Y las variables AB y A, que de 
no haberse dado la instrucción DEFDBL 
habrían tenido también precisión normal, 
tendrán ahora precisión doble, ocupan- 
do un espacio doble en memoria del que 
antes requerían. Las variables A4, A%, A! 
y AB! no se verán afectadas. 

En el lenguaje PASCAL, toda las varia- 
bles que se utilicen en un programa de- 
ben ser definidas previamente en la sec- 
ción declarativa. Por tanto, no existen re- 
glas de declaración implícita del tipo, 
como en BASIC. Siempre hay que decla- 
rar explícitamente el tipo de cada una. 
Veamos, como ejemplo, la parte declara- 
tiva del programa de cálculo de interés 
compuesto que vimos en el capítulo 5: 


program INTERES; 
(k Declaración de las variables %*) 
var 
nr, na, m, nz integer; (%* contadores X*) 
cireal;z (% capital %) 
r, a: array[1..10] of integer; 

(X réditos y años *) 
iz array[1..10,1..10] of real; 
(Kk tabla de intereses %) 


Se observará que el valor del capital 
(variable c) se ha declarado como varia- 
ble «real» (esto es, sus valores se almace- 
narán como números en punto flotante). 
Esto se debe a que, en la mayor parte de 
los compiladores de PASCAL, los números 
enteros se representan internamente 
como binarios de dieciséis cifras, por lo 
que deben estar comprendidos entre 
-32768 y 32767. Como en este programa 
deseamos utilizar números mayores, nos 
vemos obligados a seleccionar el tipo 
real para el capital. Lo mismo ocurre, na- 
turalmente, con los intereses (variable ¡), 
aunque en este caso tenemos además 
que disponerlos en forma de matriz de 
diez filas y diez columnas. En cambio, 
como los réditos y los tiempos de inver- 
sión (variables r y a) toman siempre valo- 
res pequeños, y como en este caso con- 
creto sólo nos interesan réditos enteros, 
podemos definirlos como tales utilizando 
el tipo «integer». Si quisiéramos aplicar 
este programa a casos en que la tasa de 
interés (el rédito) pudiera ser fracciona- 
rio (por ejemplo, igual a 8,5), tendríamos 
que cambiar la parte declarativa del 
programa, definiendo como “real”. 


program INTERES; 
(k Declaración de las variables *) 
var 
nr, na, m, n: integer; (% contadores %) 
Ccireal; (% capital £) 

a: array[1..10] of integer; (% años %) 
r: array[1..10] of real; (% réditos *) 
iz array[1..10,1..10] of real; 

(X tabla de intereses 1%) 


En los intérpretes de APL existen tres for- 
mas principales de almacenamiento in- 
terno de los datos: las variables cuyos va- 
lores son todos iguales a cero o a uno se 
almacenan como conjuntos de números 
binarios de una sola cifra, empaqueta- 
dos, por lo que ocupan tantos octetos 
como el cociente de dividir entre ocho 
el número de sus elementos (redondea- 
do al entero inmediato superior). Las va- 
riables cuyos valores sean enteros com- 
prendidos entre -32767 y 32767 se alma- 
cenarán en formato binario de dieciséis 
cifras, ocupando dos octetos por ele- 
mento. Por último, las restantes variables 
se guardan en punto flotante y en doble 
precisión, ocupando ocho octetos por 
elemento. 

Sin embargo, el programador de APL 
no tiene que preocuparse por esto en 
absoluto. Pues, en efecto, el propio intér- 
prete selecciona el formato adecuado 
para los datos en función de sus valores, 
y elige siempre aquél en que la variable 
ocupa el menor espacio posible. Ade- 
más, si el valor de la variable o de algu- 
no de sus elementos cambia durante la 
ejecución del programa, de manera que 
la representación interna que había teni- 
do hasta ahora ya no es aplicable, el in- 
térprete realiza automáticamente las 
conversiones adecuadas, sin que el pro- 
gramador tenga que ser consciente de 
ello. Por esta razón, se dice que en el len- 
guaje APL tan sólo hay dos tipos externos 
de datos: números y caracteres, lo que 
facilita considerablemente la programa- 
ción eliminando además una fuente de 
considerable número de errores que 
afecta con frecuencia a otros lenguajes 
de programación. 


a Datos literales 


Los datos literales son los que contie- 
nen información alfabética. En casi todos 
los lenguajes, los datos literales se intro- 


ducen en los programas en forma de ca- 
denas de caracteres encerrados entre 
comillas. En BASIC, por ejemplo, estas co- 
millas tienen que ser dobles, y los carac- 
teres incluidos en una cadena pueden 
contener cualquier cosa excepto la do- 
ble comilla. Esta, sin embargo, como 
cualquier otro carácter, se puede obte- 
ner de otra manera que ahora veremos. 

internamente, los caracteres se repre- 
sentan, como es natural, mediante nú- 
meros binarios. En los ordenadores mo- 
dernos, un carácter se considera siempre 
equivalente a un octeto o byte, es decir, 
a ocho cifras binarias (ocho bits). Puede 
comprobarse con facilidad que con 
ocho dígitos binarios pueden escribirse 
exactamente 256 números distintos, que 
corresponden a los números decimales 
comprendidos entre O y 255. Por tanto, 
podremos definir 256 caracteres diferen- 
tes, a cada uno de los cuales les corres- 
ponderá una de esas representaciones 
internas. 


Por supuesto, existen millones de repre- 
sentaciones internas posibles para los 
caracteres. Por ejemplo, podría haberse 
decidido que la letra «A» fuera interna- 
mente el número binario 00000001 (que 
corresponde al decimal 1) y la «B» estu- 
viera representada por el binario 
00101010 (que corresponde al decimal 
42), o podría adoptarse otra equivalen- 
cia totalmente diferente. La tabla que 
hace corresponder a cada carácter un 
número binario (o el decimal equivalen- 
te) se llama «código». 


En la mayor parte de los ordenadores 
personales se ha adoptado el código AS- 
Cll, llamado así porque esas letras son las 
siglas de «American Standard Code for In- 
formation Interchange» (código patrón 
americano para intercambio de informa- 
ción). Este código define únicamente el 
significado de 94 caracteres representa- 
bles, más el espacio en blanco y 33 de 
control dejando cierta libertad para la 
definición de los 128 caracteres restan- 
tes. La tabla siguiente presenta la parte 
común a todos los códigos ASCII de los 
distintos ordenadores personales. La pri- 
mera columna contiene el código deci- 
mal equivalente al número binario que 
representa al carácter. La segunda co- 
lumna es el carácter correspondiente. 
Los caracteres comprendidos entre los 
códigos O y 127 que no aparecen en la 


tabla son caracteres de control, no re- 
presentables. Algunos se emplean para 
pasar página en las impresoras, o para 
otros menesteres parecidos. 
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Pues bien: en BASIC existe una segun- 
da manera de obtener caracteres, que 
consiste en utilizar la función CHR$, que 
aplicada a un número (el código del ca- 
rácter) devuelve el carácter correspon- 
diente. Por ejemplo, CHR$(78) es la letra 
N, y, por tanto, equivale totalmente a la 
cadena “N”, expresada entre comillas 
dobles. Pero esta función puede em- 
plearse en cualquier caso, incluso para 
obtener caracteres que no pueden po- 
nerse entre comillas, como la doble co- 
milla, CHR$(34), el retorno de carro, 
CHR$(13), así como cualquiera de los ca- 
racteres de control y de los que corres- 
ponden a la parte no común de los có- 
digos ASCII, los comprendidos entre 128 
y 255, que varían de ordenador en orde- 
nador. 


LOGO 


Cómo repetir 
comandos 


N este momento, to- 
dos sabemos ya ha- 
cer un cuadrado. Los 
comandos podrían 
ser: 


? AV 50 GD 90 


? AV 50 GD 90 


7 AV 50 GD 90 


? AV 50 GD 90 


_ Como podemos ver, escribimos cuatro 
líneas de comandos que son exactamen- 
te iguales, es decir, repetimos lo mismo 
cuatro veces. 

Para evitar el tener que escribir varias 
veces las mismas órdenes, la tortuga dis- 
pone del comando 


REPITE n (lista de comandos) 


donde n indica el número de veces que 
queremos que la tortuga ejecute la lista 
de órdenes que ponemos entre corche- 
tes. 

Así, el dibujar el cuadrado resultará 
mucho más fácil. Nos basta con poner: 


Vamos a probar ahora con un triángu- 
lo. El conjunto de comandos: 


7 AV 50 GD 120 
7 AV 50 GD 120 


7 AV 50 GD 120 


queda reducido a una sola orden si utili- 
zamos el comando REPITE: 


Si lo que queremos dibujar es un pentá- 
gono 


escribiremos 


No sabemos qué número de grados ha 
de girar la tortuga. Para conocerlo, va- 
mos a usar un truco. 


En cualquier figura que sea cerrada y 
cuyos lados no se cortan, la suma de to- 
dos sus ángulos vale 360 grados. Por tan- 
to, para saber cuál es el valor de cada 
ángulo de un polígono regular tenemos 
que dividir el valor total (360) entre el nú- 
mero de ángulos. Es igual que cuando te- 
nemos, por ejemplo, 100 caramelos y 
queremos repartirlos entre nuestros 5 
amigos: 


100 caramelos: cinco amigos = 20 cara- 
melos para cada amigo 


Con esto, ya podemos saber cuánto ha 
de girar la tortuga para pintar nuestro 
pentágono: 


360 :5:=.72 
El comando queda así: 


Lo que ocurre es que cada vez que 
queremos dibujar una figura de este tipo, 
primero tenemos que hacer una división 
para saber cuánto debe girar la tortuga. 

Esto también lo podemos evitar hacien- 
do que sea la propia tortuga la que cal- 
cule este valor, pero ¿cómo? Pues muy 
fácil. Nuestra tortuga sabe sumar, restar, 
multiplicar y dividir. Por tanto, podemos 
decirle que haga ella la división. 

Teniendo esto en cuenta, la orden que 
haría que la tortuga dibujara el pentágo- 
no sería: 


Como vemos, la división se representa 
mediante la barra inclinada (/). 

En el caso de que quisiéramos dibujar 
un triángulo, pondríamos: 


? REPITE 3 [AV 50 GD 360/31 


La división de 360 entre 3 da 120. Porello, 
al querer pintar un triángulo en otras oca- 
siones hemos hecho que la tortuga gira- 
se este número de grados y no 60. 


¡m Una fórmula general 
para polígonos 


Después de haber dibujado varios po- 
lígonos (triángulo, cuadrado, pentágo- 
no) podemos ver que para todos el co- 
mando REPITE es muy parecido: 


triángulo: 
REPITE 3 (AV 50 GD 360/3) 


cuadrado: 
REPITE 4 (AV 50 GD 360/4) 


pentágono: 
REPITE 5 (AV 50 GD 360/5) 


En todos hacemos lo siguiente: 


— Primero, ponemos REPITE. 

— Luego, un número que indica el nú- 
mero de lados (o de ángulos, ya que 
coinciden) que tiene la figura. 

— Enla lista de órdenes (entre corche- 
tes) ponemos: 

— Avanzar un número de pasos. 

— Girar una cantidad que se obtiene 
dividiendo 360 entre el número de ángu- 
los. 


Por tanto, en general, cuando quera- 
mos dibujar cualquier polígono, el co- 
mando será así: 

REPITE número-lados (AV longitud GD 
360/número-lados) 

Con esto ya podemos pintar polígonos 
que tengan distinto número de lados y, 
además, sin necesidad de tener que es- 
cribir muchos comandos: solamente uno. 


1 Os proponemos 


1. Utilizando la fórmula general pue- 
des pintar diferentes polígonos. Por ejem- 
plo: 


hexágono : 6 lados 
heptágono : 7 lados 
octógono : 8 lados 
eneágono: 9 lados 
decágono:  10lados 
endecágono : 11 lados 
dodecágono : 12 lados 
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2. Intenta dibujar un rectángulo usan- 
do el comando REPITE. Es muy fácil, fijate 
bien cómo lo haces sin utilizar este co- 
mando. Por ejemplo: 


? AV 20 GD 90 
7? AV 50 GD 90 
7 AV 20 GD 90 


? AV 50 GD 90 


3. Pinta esta estrella con el comando 
REPITE. Para ello, sustituye en la fórmula 
general para pintar polígonos el número 
de lados por el número de puntas y 360 
por 720. 


4. Dibuja esta casa. 


li 
É 


lu Circunferencias 


Al dibujar los diferentes polígonos, po- 
demos ver que según aumenta el núme- 
ro de lados, la cantidad de grados que 
la tortuga va girando es cada vez más 
pequeña. Esto es lo mismo que si tene- 
mos los 100 caramelos de antes, pero 
cada vez queremos repartirlos entre más 
amigos. 

Además, al aparecer cada polígono 
en la pantalla, conforme aumenta el nú- 
mero de lados, la figura se va parecien- 
do más a una circunferencia. 

- Por tanto, podemos dibujar una circun- 
ferencia usando el comando REPITE. Para 


ello, la tortuga tiene que girar muy poqui- 
to cada vez y la figura ha de tener un nú- 
mero de lados muy grande, en concreto 
360. Entonces, si ponemos: 


7 REPITE 360 [AV 1 6D 11 


nos queda: 


Para hacer una circunferencia más 
grande, tenemos que aumentar el núme- 
ro de pasos del comando AV. 

Así, si escribimos: 


nos quedará, si no hemos borrado la cir- 
cunferencia anterior: 


Lo que ocurre es que esta orden resul- 
ta muy pesada para la tortuga y tarda 
bastante en ejecutarla, ya que tiene que 
hacer 360 veces lo que hemos puesto en- 
tre corchetes. 


Si escribimos la orden de esta otra ma- 
nera: 


obtenemos el mismo resultado (una cir- 
cunferencia), pues lo único que hace- 
mos es quitarle un cero (0) al 360 (nos 
queda 36) y ponérselo al 1 (nos queda 
10). Además, la tortuga tarda menos en 
ejecutarla. 

Vamos a dibujar dos circunferencias. Si 
ponemos los comandos: 


? REPITE 36 [AV 3 GD 101 


? REPITE 36 [AV 3 Gl 10] 


nos queda: 


En resumen, para dibujar circunferen- 
cias hemos de poner: 


REPITE 36 (AV tamaño GD 10) 
o 
REPITE 36 (AV tamaño Gl 10) 


' Os proponemos 


1. Pinta esta mariposa. 


2. Puedes dibujar un camión. 


Le 


También puedes hacer un gato. 


O 


4. Intenta pintar los aros olímpicos, 
usando distinto color para cada círculo. 


negro 


Ñ Y . 


amarillo verde 
5. Atrévete con esta figura. 


2 


6. ¿Qué te parece esta bicicleta? 


de 


PASCAL 


a) La estructura variable Cuenta como “contador de pro- 
a » 
FOR grama”. 


N el programa Repi- Es tan habitual tener que repetir instruc- 
teEscribe que vimos ciones o bloques de instrucciones un nú- 
al estudiar la estruc- mero fijo de veces, que el PASCAL dispo- 
tura REPEAT se ejecu- ne de una estructura específica para 
taban las instruccio- ello: la estructura FOR. 

nes del bucle un nú- 

mero preestablecido Con ella, el programa equivalente a 


de veces utilizando la RepiteEscribe podría quedar: 


program RepiteEscribeConFor; 
var Cuenta: integer; 
begin 

for Cuenta:= 0 to S do writeln (*Cuenta= ”,Cuenta); 
end. 


Nuevamente, en la pantalla aparece- La estructura es la siguiente: 
rá: 


FOR (contador:= primer valor) TO (último 
valor) DO (instrucción) 


Tras la palabra reservada FOR se escri- 
be la expresión de asignación del primer 
valor al contador de programa (Cuen- 
ta:= 0); tras ello siguen la palabra reser- 
cuentas vada TO, el último valor que tomará el 


Cuenta= 


Cuenta= contador (5), la palabra DO y, por fin, la 
et : : instrucción a repetir que, como siempre, 
Cuenta= puede ser simple o estructurada. 

Al ejecutarse el programa, cuando se 
llega a una estructura FOR, al contador 
de programa se le asigna el primer valor. 
Tras ello se ejecuta la instrucción y el 
contador pasa a tomar el siguiente valor 
de manera automática, volviéndose a 
ejecutar la instrucción nuevamente y a 


variar el contador, etc., hasta que, por 
fin, la instrucción se ejecuta teniendo el 
contador el valor especificado como úl- 
timo, momento tras el cual se pasa a eje- 
cutar lo siguiente a la estructura. 


Traduciendo del inglés: 


FOR Cuenta:= O 

Para Cuenta valiendo desde O 
TO E] DO writeln... 
hasta 5 hacer writeln... 


Para especificar los valores inicial y fi- 
nal se puede utilizar cualquier expresión 
que proporcione un resultado del mismo 
tipo que la variable utilizada como con- 
tador. 


Aspectos importantes: 


— El valor final se calcula nada más 
llegar a la estructura FOR; por ello, si al- 
guno de los elementos de la segunda ex- 
presión cambiara durante alguna de las 
repeticiones del bucle, el valor final no 
se vería afectado. Por ejemplo, si N y 
Tope son variables INTEGER: 


Tope:= 10; 
for Nz:=1 to Tope do 
begin 

writeln (N); 
Tope:= 1000 

end; 


Tope pasará de valer 10 a valer 1000, 
pero sólo se sacarán los valores de Nhas- 
ta llegar a 10, que era el valor de Tope 
cuando se llegó a la estructura FOR. 


— Si el valor final fuese anterior al ini- 
cial, no se ejecutarian ni una vez las ins- 
trucciones del bucle: 


for Cuenta:= 5 downto 0 do 
writeln (*Cuenta= ”, Cuenta); 


Tope:= 5; 
for N:=10 to Tope do writeln (N); 


así, N no se llega a escribir nunca (es de- 
cir, la comprobación de llegada al valor 
final se hace antes de ejecutarse la ins- 
trucción). 


La variable de control no puede ser de 
cualquier tipo. Sólo el tipo INTEGER y 
aquellos otros que tienen asociados nú- 
meros ordinales son admisibles (junto 
con sus posibles subrangos), es decir, 
aquellos tipos cuyos posibles valores es- 
tán ordenados y con los que se pueden 
usar las funciones PRED, SUCC y ORD. Por 
ahora sólo hemos visto el tipo CHAR (y el 
BOOLEAN). Podríamos, por tanto, escribir: 


program ABC; 
var C:z char; 
begin 

for C:= *A” to *Z” do vrite (C) 
end. 


Al correr el programa saldrá por la pan- 
talla: 


ABCDEFGHIJKLMNOPQRSTUVWXYZ 


Existe una forma alternativa de la es- 
tructura FOR para cuando se desea que 
la variable de control vaya cambiando 
de valor en orden inverso al normal. Con- 
siste en usar la palabra reservada DOWN- 
TO en lugar de TO. 


En el programa RepiteEscribeConFor 
podriamos poner: 


a PASCAL 


Esta vez, en la pantalla aparecerían los 
números en orden inverso al anterior. 


La traducción del inglés sería: 


FOR Cuenta:= 5 DOWNTO 
Fara Cuenta valiendo desde S para abajo hasta 


[0] DO 
O hacer... 
El segundo aspecto antes mencionado 
es aqui el inverso. Con: 


for N:=1 downto 10,do writeln (N); 


no se llegaría a escribir nada. 


program DobleFor; 


const 
UltimaFila 
UltimaColumma = 10; 


var 


begin 


begin 
writeln; 


writeln 
end 
end. 


Por último, dos advertencias y un con- 
sejo dirigidos fundamentalmente a los 
expertos en BASIC: 


— El valor del contador de programa 
al acabar de ejecutarse la estructura FOR 
puede que sea el siguiente al especifica- 
do como final, pero puede que no; de- 
pende de cada compilador en concreto. 

— No se debe alterar el valor de la va- 
riable de control mediante ninguna ins- 
trucción dentro del bucle: podrían suce- 


(x Este programa saca todas las casillas 
del tablero del juego de los barquitos X*X) 


= ”J”; 


Fila 2 *A”..UltimaFila; 
Columma: 1..UltimaColumna; 


for Fila:= *A” to UltimaFila do 
(k Para cada fila empezando por la A, 
sacar todas sus casillas: 


writeln (”En la fila ”,Fila,” tenemos: ”); 
for Columma:= 1 to UltimaColumma do 
write (Fila,Columma,” ”); 


Igualmente podríamos hacer con el 
tipo CHAR: 


program ZYX; 
var Ci char; 


begin s 
for C:= *Z” downto *A” do write (C) 
end. 


La estructura FOR es a su vez una ins- 
trucción estructurada, y, por tanto, po- 
dría formar parte de la instrucción a re- 
petir en otra estructura FOR: 


x) 


der cosas imprevistas. Por tanto, No se 
deben hacer cosas como: 


for N:=-100 to 100 do 
begin 

... 3 

N2=117 
end; 


— El único tipo de contador numérico 
admitido es el INTEGER, y además sólo se 
admiten incrementos de 1 (o de -1 con 
DOWNTO). Por ello, lo mejor para cuando 
se desean variaciones distintas de la uni- 
dad es utilizar una estructura REPEAT o 
WHILE: 


program DeZ2en2; 

var Cuenta: integer; 

begin 

Cuenta:= 0; 

repeat 
writeln (”Cuenta= ”,Cuenta); 
Cuenta:= Cuenta + 2 

until Cuenta > 20 

end. 


) a 
m Diseno de un programa 


Ahora que ya conocemos las principa- 
les estructuras de control del PASCAL, va- 
mos a desarrollar un programa que utili- 
ce algunas de ellas. 

Este programa va a servir para dibujar 
en la pantalla tres tipos de figuras: cua- 
drados, pirámides y rombos. Un boceto 
del programa podría ser: 


1. Preguntar qué tipo de figura se de- 
sea. 

2. Preguntar de qué tamaño. 

3. Dibujar. la figura deseada. 


Para poder dibujar varias figuras sin te- 
ner que arrancar el programa cada vez, 
podriamos cambiar su estructura a la si- 
guiente: 


Repetir lo siguiente... 


1. Borrar la pantalla. 
2. Preguntar qué tipo de figura se de- 
sea. 


program Dibujos; 


const 


3. Preguntar de qué tamaño. 
4. Dibujar la figura deseada. 
5. Preguntar si se desea seguir. 


... hasta que no se desee seguir. 


Ya hemos visto sobrados ejemplos so- 
bre cómo hacer los apartados 1,2,3 y 5. 
Sin embargo, el punto 4 es más comple- 
jo; podría ser algo asi: 

— Si se desea un cuadrado entonces: 

Pintar un cuadrado. 
Pero si no, entonces: 
— si es una pirámide lo deseado: 
Pintar una pirámide. 


y si tampoco es una pirámide: 
Pintar un rombo. 


Una pirámide podría tener el siguiente 
aspecto: 


Es decir, una pirámide está formada 
por una serie de filas que constan cada 
una, en primer lugar, de una secuencia 
de espacios en blanco, que es más cor- 
ta cuanto más baja sea la fila; a conti- 
nuación viene una secuencia de asteris- 
cos que, por el contrario, va haciéndose 
más larga. 

Un rombo podemos suponer que está 
formado por dos pirámides, puesta una 
contra la otra. 

- Por último, un cuadrado es simplemen- 
te un número dado de filas con una can- 
tidad constante de asteriscos. 

Podemos pasar ya a escribir el progra- 
ma: 


TotalMaximo = 20; TotalMinimo = 4; 


Fila, Columma, Total 
oK 


begin 


2 char; 
: integer; 
: boolean; 


repeat (*X repetir todo X) 


ClrScr3 


(X esto borra la pantalla %k) 


(kx Si hace falta, cambiarlo por PAGE, o 
por lo que necesite nuestro compilador: *) 


PASCAL 


write (”¿C(uadrado),Rí(ombo), Pirámide)? ”); 
repeat 

readln (Tipo); 

OK:=(Tipo="C”) or (Tipo="R”*) or (Tipo=”P”); 

if mot OK then writeln (”No vale, repita.”) p 
until OK; 


write (*"¿Tamaño? ”); 

repeat 

readln (Total); 

OK:= false; (* se supone mala respuesta a priori *) 

if Total > TotalMaximo then 
writeln (”Demasiado, repita.”) 

else 
a $) 
if Total < TotalMinimo then 
writeln ("Demasiado poco, repita.”) 
else 


OK:z:= true (*X se da por bueno X) 


A y) 


until OK; 


99) 
if Tipo="C” then 
lr e Y) 
cx Pintar cuadrado: x) 
MAA es, 1) 
for Fila:=1 to Total do 
begin 
for Columa:=1 to Total do write(*x”); 
(kx tras cada fila, saltar a la siguiente %) 


if Tipo="P” then 
NAX>P5PM>MAMAAA A --—*) 
(k Pintar pirámide: x) 
a Y) 
for Fila:= 1 to Total do 
begin 
for Columa:= 1 to Total-Fila do 
wite(” ”); 
for Columa:= 1 to 2k*Fila do write(*Xx”); 
writeln 
end 


$) 


else 


A $) 


(xk Pintar rombo: x) 
a $) 
begin 
(k Pintar una pirámide bajita: %*) 
for Fila:= 1 to Total div 2 do 
begin 
for Columa:= 1 to Total div 2 - Fila do 
wite(* *); 
+$or Columa:= 1 to 2*Fila do write(*Xx”); 
writeln 
end; 


(kx Pintar otra pirámide invertida: *) 
for Fila:= 1 to Total div 2 do 
begin 
for Columma:= 1 to Fila do vwritel(” ”); 
for Columa:= 1 to Total-2*Fila do 
write(*x”)3; 
writeln 
end 
end; 


write (*¿Sigo? (S/N) ”); readln (C); 


until C="N” 
end. 


El desarrollo que se ha hecho de este programa, hace que la posibilidad de 
programa, descomponiéndolo en tareas error disminuya mucho. Más adelante ve- 
más sencillas, éstas a su vez en otras, y remos que esto se pude sistematizar en 
así hasta llegar a unas que sean fácil- PASCAL de una menera muy cómoda me- 
mente convertibles en instrucciones de diante el empleo de “procedimientos”. 


NIX es un sistema 
operativo multiusua- 
rio (de tiempo com- 
partido o “time sha- 
ring”). Esto, ¿qué 
quiere decir? Pues 
sencillamente que 
UNIX permite a varios 
usuarios compartir los recursos del orde- 
nador, dando la apariencia de que tie- 
nen un equipo para cada uno. La expli- 
cación “técnica” de este fenómeno es 
bien simple: el sistema operativo hace 
que el procesador central de la máqui- 
na atienda a cada usuario durante un 
determinado intervalo de tiempo. Como 
los equipos cada vez son más rápidos, 
los usuarios no perciben que realmente 
sólo disponen del ordenador para ellos 
solos durante esos pequeños intervalos, 
dando así la apariencia de continuidad. 

Históricamente, Unix es un producto 
que salió de los laboratorios Bell (perte- 
necientes a la compañía AT4T). Su prime- 
ra versión fue escrita por Ken Thompson 
entre 1968 y 1970 para un miniordenador 
PDP-7 de Digital Equipment Corporation. 
Al poco tiempo se le unió Dennis Richie 
(creador del lenguaje de programación 
Gh junto con el cual escribió una nueva 
versión para los PDP-11, y fue en 1973 
cuando reescribían UNIX en lenguaje C, 
también para los PDP-11. 

En 1978 UNIX se comercializa por pri- 
mera vez con el nombre de UNIX Version 
7. Con el paso del tiempo, el sistema va 
mejorando e incorporando nuevas utili- 
dades, razón por la cual van surgiendo, 
lógicamente, nuevas versiones. Así, en 
1982 aparece la versión UNIX System lll, y 


OTROS LENGUAJES 


SISTEMAS OPERATIVOS: UNIX 


en 1983 UNIX System V. Al margen de es- 
tas versiones, todas ellas originadas en la 
propia AT8T, han aparecido otras prove- 
nientes de otras companías o centros de 
investigación, entre las cuales es de des- 
tacar XENIX (de Microsoft), y las series 
BSD de la Universidad de Berkeley. 


| e 
[m Caracteristicas generales 


Las características más relevantes de 
UNIX son las siguientes: 


— A diferencia de la mayoría de los 
sistemas operativos, que están escritos 
en el lenguaje ensamblador de la máqui- 
na a la que van destinados, UNIX está es- 
crito en un lenguaje de alto nivel como 
es el C, de ahí su alto grado de portabi- 
lidad, es decir, la facilidad de ejecutar 
los programas escritos sobre UNIX sobre 
distintas máquinas, sin tener que hacer 
cambios en los mismos. 

— Tiene una estructura de ficheros je- 
rarquizada, es decir, en forma de árbol 
invertido, el cual nace de un directorio 
raíz que contine ficheros y subdirectorios, 
los cuales, a su vez, contienen otros fi- 
cheros y/o subdirectorios, creándose así 
una estructura ramificada “hacia abajo”. 

— La interface con el usuario es fácil- 
mente modificable. Esta interface la 
compone un intérprete de comandos (la 
“shell”), que además dispone de su pro- 
pio “lenguaje de programación”. El decir 
que es fácilmente modificable significa 
que se podría adaptar para que fuera 
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dí | Esquema del sistema de ficheros de UNIX. Los directorios están representados por 


rectángulos, y los ficheros por círculos. 


guiando al usuario en las acciones a rea- 
lizar, de manera que la complicada sin- 
taxis de UNIX fuera transparente para él. 

— Se puede redireccionar la entrada 
y la salida. Esto significa que el resultado 
de la ejecución de un programa o de un 
comando (que en el fondo no es más 
que otro programa), se puede llevar a 
cualquier sitio, ya sea un fichero en dis- 
co como un dispositivo periférico (por 
ejemplo, la pantalla). 

— Es un sistema operativo multitarea, 
lo cual permite a cada usuario ejecutar 
distintos trabajos con aparente simulta- 
neidad. 

— Permite trabajar en modo multiusua- 
rio, o lo que es lo mismo, tiene la posibi- 
lidad de tener activados simultáneamen- 
te varios puestos de trabajo. 

— Se pueden comunicar distintos pro- 
cesos mediante “pipe-lines” (tuberías), 
de manera que la salida de un proceso 
puede ser la entrada de otro, y la salida 
de éste la entrada de un tercero... y así 
sucesivamente. 

— Permite el intercambio de mensajes 
entre usuarios, ya sea por medio de “bu- 
zones de cartas”, o mediante comunica- 
ción interactiva entre ellos. 


No hay que perder de vista, de todas 
formas, algunos de los inconvenientes de 
UNIX. Por una parte, su mayor potencia 
implica una mayor dificultad en su apren- 
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dizaje (muy superior a la de otros siste- 
mas operativos como CP/M o MS/DOS). 
Esto es debido en gran parte al elevado 
número de comandos de que dispone, y 
a la engorrosa y complicada sintaxis de 
los mismos, lo que hace que UNIX no sea 
muy apto para los principiantes. Otro fac- 
tor que hay que tener en cuenta es que 
el elevado número de versiones, todas 
ellas con mayor o menor grado de in- 
compatibilidad, podrían hacer difícil su 
estandarización, aunque la compañía 
creadora de UNIX, AT8T, ha dejado clara 
su intención de hacer del UNIX System V 
un estándar del mercado. 


